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PRESENTATION 


Peintre et musicien, c’est ce que vous deviendrez grâce à votre 
AMSTRAD après avoir lu ce livre. Ce livre suppose que vous avez 
acquis une connaissance préalable du langage Basic. Pour cela nous 
vous recommandons de lire "La Découverte de l'AMSTRAD". 


À vrai dire, le sujet de ce livre est un approfondissement de 
l'étude du BASIC de l’'AMSTRAD, insistant plus particulièrement sur 
les extensions que présente le Basic AMSTRAD par rapport à d’autres: 
des instructions de structuration et d’aide à la mise au point des 
programmes plus commodes, des instructions graphiques faciles à 
utiliser, des instructions sonores synthétiques. Sa caractéristique 
essentielle est de ne faire appel qu’à BASIC, même pour les 
traitements graphiques ou sonores les plus élaborés; on peut ainsi 
mesurer les excellentes capacités du Basic AMSTRAD dans ces 
domaines. 


Le livre est valable pour les trois modèles AMSTRAD CPC 464, 
664 et 6128; les restrictions (peu nombreuses) du 464 sont signalées et, 
si possible, on donne une méthode pour les contourner. Le plan du 
livre est alors tout tracé : le premier chapitre donne un rappel succinct 
de Basic (qui s’appuie fortement sur "La Découverte de l'AMSTRAD") 
et examine les extensions apportées par l'AMSTRAD dans les 
instructions de structuration et les aides à la mise au point. Le 
deuxième chapitre introduit les différents modes d’affichage de 
l'AMSTRAD. Le chapitre 3 examine les graphiques haute résolution 
les plus simples et donne leurs applications en gestion : diagrammes en 
bâtons et camemberts. 
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Le chapitre 4 utilise les graphiques haute résolution sous leur 
forme la plus élaborée avec dessins en 3 dimensions et algorithmes de 
parties cachées, ce chapitre se termine par un programme de définition 
de formes qu’on peut faire tourner à volonté dans toutes les directions 
et visualiser avec faces cachées. Vous trouverez aussi un programme 
très esthétique de visualisation de surfaces. Le Basic AMSTRAD ne 
possède pas d'instructions spéciales pour définir et manipuler des 
lutins (objets graphiques déplaçables);, le chapitre 5 esquisse des 
méthodes permettant de les simuler. Enfin, on peut dire que le 
chapitre 6 fera du bruit, ou plutôt en fera faire à votre AMSTRAD, 
puisqu'il étudie les possibilités sonores et musicales! Là aussi, elles sont 
faciles à mettre en oeuvre grâce aux instructions évoluées offertes par 
l'AMSTRAD. 


Le livre est complété par des annexes qui regroupent les 
informations de référence indispensables, et donnent la solution des 
exercices (il y en a plus de 60). 


Il va sans dire que tous les listings donnés ici sont faits sur 
l'ordinateur après test du programme. Pour une exécution correcte, 
vous devez les taper avec soin. 
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BASIC 


1.1 Courte révision des instructions 


Basic fondamentales 


Cette révision sera la plus brève possible. En cas de problème, nous 
vous conseillons de consulter les chapitres 1 à 5 de "La Découverte de 
PAMSTRAD". 


Les instructions de Basic peuvent être réparties en un certain 
nombre de catégories. La distinction la plus importante nous semble 
être entre instructions séquentielles, c’est-à-dire instructions telles que, 
une fois achevées, on passe immédiatement à la suivante, et 
instructions de structuration qui permettent d’arranger l’ordre 
d'exécution des différentes séquences, de donner -autrement dit- sa 
structure au programme. 


Instructions séquentielles 
Les trois principales instructions séquentielles correspondent aux 
trois principales opérations qu’on trouve dans tout traitement 


informatique. 


A l'acquisition de données correspond l'instruction INPUT de la 
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forme : 
INPUT "texte":liste de variables 


qui, après avoir affiché le texte spécifié à l’écran, attend qu’on 
fournisse au clavier des valeurs qui seront entrées dans les variables 
indiquées. 


Ex. INPUT "RAYON HAUTEUR"; R,H 


Au calcul, élaboration d’informations nouvelles à partir de données 
de départ, correspond l'instruction arithmétique de la forme : 


variable = expression arithmétique 


qui calcule l'expression arithmétique à droite du signe = et range le 
résultat dans la variable indiquée à gauche. 


Ex. A=2*EXP(-T”2/2) 
C$="BONJOUR "+X$ 


Les exemples ci-dessus mettent en évidence la possibilité pour 
Basic de manipuler des données numériques (nombres) ou 
alpha-numériques (chaînes de caractères ou textes). Les variables 
chaînes ont leur nom terminé par un $. Il existe de nombreuses 
fonctions sur les chaînes de caractères. Basic permet aussi de 
manipuler des collections de données rassemblées dans des variables 
tableaux ou variables indicées. 


L'opération qui est peut-être la plus importante, en tous cas celle 
sans laquelle on n’achèterait pas d’ordinateurs est la sortie des 
résultats. Il lui correspond l’instruction PRINT de la forme : 


PRINT élément ; élément , élément … 


où les éléments peuvent être des constantes, des variables ou des 
expressions numériques ou alphanumériques. Lorsque le séparateur est 
5.9 


; les éléments sont imprimés jointifs, il y a une tabulation si l’on 
emploie ”,’. 
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Ex. PRINT "RESULTAT = "A 


Instructions de structuration 


Le Basic élémentaire comporte trois instructions de structuration 
(ou rupture de séquence) : 


GOTO numéro de ligne qui fait aller inconditionnellement à la 
ligne indiquée 


Ex. GOTO 50 


IF condition THEN instructions qui fait exécuter les instructions 
indiquées seulement si la condition spécifiée est vraie 


Ex. IF A>B THEN PRINT "SUPERIEUR" 


et le couple FOR variable=départ TO fin STEP pas … NEXT qui fait 
répéter les instructions placées entre FOR et NEXT pour toutes les 
valeurs de la variable comprises entre début et fin, avec un intervalle 
d’incrémentation égal à ‘pas’. 


Ex. FOR I=i TO N STEP 2 


Un autre couple d'instructions de structuration très important 
permet de définir des sous-programmes. L’instruction d’appel est 
GOSUB numéro de ligne : elle fait sauter au début du 
sous-programme à la ligne indiquée. Le sous-programme se termine 
par RETURN qui fait revenir juste après l’appel. 


Autres instructions 


Basic a bien entendu beaucoup d’autres instructions. Certaines 
manipulent des données, d’autres agissent sur l’affichage, ou créent des 
effets graphiques ou sonores (c’est cette catégorie qui est le principal 
sujet de ce livre). Une autre catégorie importante est celle des 
instructions de manipulation de fichiers. Enfin, il y a des instructions 
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qui font le lien entre Basic et le langage machine : PEEK, POKE, 
CALL, MEMORY, DI, EI, IN, OUT et WAIT. 


Les commandes 


A côté des instructions, Basic renferme des commandes qui aident 
à l’écriture, à la mise au point et à l'exécution des programmes. Elles 
s’utilisent généralement en mode direct. 


La plus importante est RUN qui fait exécuter le programme. 
Presqu’aussi importante est LIST qui le fait lister. 


Une catégorie de commandes fondamentales est celle de SAVE et 
LOAD qui permettent de sauvegarder puis de retrouver un programme 
sur cassette ou disquette. 


1.2 Instructions élaborées du Basic AMSTRAD 


Le Basic AMSTRAD est un des plus perfectionnés qui soient: il est 
à peu près dépourvu de lacunes. Outre les graphiques et les sons, les 
domaines dans lesquels il apporte les instructions - ou les formes - 
élaborées qui faisaient cruellement défaut dans les versions 
élémentaires, sont les manipulations disques, les aides à l’écriture et à 
la mise au point des programmes et les instructions de structuration. 


Instructions disques (ou cassettes) 


Nous passons assez rapidement sur ce domaine qui n’est pas 
essentiel pour nos graphiques : les seules instructions qui nous 
intéressent sont celles qui permettent de sauver un programme ou un 
dessin et quelques instructions annexes. Nous ne parlons pas des 
instructions de gestion de fichiers : ceci est la matière d’un autre 
ouvrage. 


LOAD 


LOAD "nom" charge en mémoire le programme "nom" à partir du 
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périphérique par défaut, disque ou cassette. Vous pouvez imposer le 
périphérique utilisé par [TAPE ou [DISC. Le nom peut être spécifié 
sous forme de variable chaîne de caractères (précédée de @ sur 464) : 
LOAD NOMS$ ou LOAD @NOMS 


Pour un module en langage machine ou une table en mémoire, il 
peut y avoir un second paramètre qui spécifie l’adresse de chargement 
lorsqu'elle est différente de celle utilisée lors de la sauvegarde. 


MERGE est équivalent à LOAD, mais n’efface pas le programme 
déjà en mémoire : le nouveau programme se rajoute au premier, ce qui 
permet de constituer des bibliothèques de sous-programmes. 


SAVE 


Cette instruction sauvegarde le programme sur disque ou cassette 
avec le nom spécifié. Ex. SAVE "ZOZO" 


La forme ci-dessus est la plus simple : elle correspond à la simple 
sauvegarde d’un programme. Les formes SAVE "nom",P et SAVE 
"nom",A sauvent le programme respectivement sous forme "protégée" et 
sous forme ASCII (=texte, seule forme utilisable en vue de MERGE). 


La dernière forme permet de sauvegarder le contenu d’une zone 
mémoire. On dit que c’est une sauvegarde binaire. Les applications 
sont nombreuses : on peut ainsi sauver un programme en langage 
machine, un tableau de données etc. Dans ce livre nous l’utiliserons 
plus spécialement lorsque la zone mémoire sauvegardée est la mémoire 
d'écran, ce qui fournit la sauvegarde d’une image. 


L’instruction s’écrit : SAVE "nom",B.ad,no 
où ’nom’ est le nom du fichier à créer, ad est l’adresse de départ de la 
zone à sauver, no est le nombre d’octets à sauver. Ces paramètres sont 


commodément spécifiés en hexadécimal (&xxxx). 


Ex : pour sauver Ja mémoire d’écran, on fait : SAVE 
"ECRAN",B,&C000,&4000 


15 


PEINTRE ET MUSICIEN SUR AMSTRAD 


Exercice 1.1 


Sauver la zone mémoire qui va des adresses 1024 à 2047. 
CAT ou [DIR 


Cette instruction fait afficher la table des matières de la cassette ou 
disquette. 


La commande AMSDOS JDIR ne porte que sur disquette mais elle 
a l’avantage de permettre de spécifier un groupe de fichiers à l’aide de 
caractères joker : 


Ex. [DIR "P*" ne fait lister que les fichiers dont le nom commence 
par un P. 
Instructions de structuration 

Cette catégorie reçoit sur AMSTRAD de substantielles 
améliorations par rapport au Basic élémentaire. On a enfin la structure 


alternative complète avec IF … THEN … ELSE 


et WHILE … WEND procure une structure de boucle "jusqu’à" ou "tant 
que". 


IF … THEN .… ELSE … 


Une alternative complète s’écrit : 
IF condition THEN instructions 1 ELSE instructions 2 


S'il y a plusieurs instructions dans les suites instructions | ou 
instructions 2, elles doivent être séparées par des ”” Si la condition 
spécifiée est vraie, on exécute les instructions 1 puis on passe à la 
ligne suivante; si elle est fausse, on exécute les instructions 2 puis on 
passe à la ligne suivante (sous réserve qu’il n’y ait pas de GOTO dans 
les instructions). 
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Ex. 100 IF A>B THEN GOSUB 1000 ELSE GOSUB 2000 

Un problème qui se pose est que tout l’ensemble doit tenir dans 
une ligne Basic (255 caractères). L'utilisation de GOSUB apporte une 
solution. 
Exercice 1.2 

Dans l’exemple : 

10 i01 

20 IF c THEN ïüil1 : il12 else i21 : 122 

30 31 


quelles instructions sont exécutées si la condition est vraie ? Si elle est 
fausse ? Si i12 est un GOTO 1000 ? 


WHILE...WEND 


Ces instructions font répéter toutes les instructions qui se trouvent 
entre elles tant qu’une condition de continuation est vraie : 


WHILE condition 
.… instructions 
WEND 


Si la condition spécifiée est toujours vraie (WHILE 1 … WEND), 
on boucle indéfiniment. 


Ex. A$=" : WHILE AS=" : AS$S-INKEY$ : WEND attend qu’on 


appuie sur une touche quelconque au clavier. 


Exercice 1.3 


Attendre qu’on appuie sur la touche *A° au clavier. 
On peut sortir de la boucle à partir de l’intérieur à l’aide d’une 


17 


PEINTRE ET MUSICIEN SUR AMSTRAD 


instruction IF : 


Ex. 100 I=0 : WHILE I<=NC 
110 I=I+1 
120 IF NOMS(I)="DUPONT" THEN 140 
130 WEND 
140 … 


recherche le client DUPONT parmi le tableau des noms des NC 
clients. 


Exercice 1.4 


Pourrait-on supprimer la clause WHILE à la ligne 100 ? 
Pourrait-on supprimer la ligne 120 et écrire : 


100 1=0: WHILE NOMS(I)<>"DUPONT" 


L'exercice qui précède pose le problème de la possibilité d’évaluer 
la condition, notamment à l’entrée de la boucle. 


Un autre problème est celui-ci : il faut évidemment que la 
condition d’arrêt puisse être atteinte, sinon on bouclerait indéfiniment. 
Il faut en particulier que les calculs effectués dans la boucle fassent 
évoluer la valeur de la condition. 


Instructions d'aide à la programmation 

Le Basic AMSTRAD apporte de nouvelles instructions qui aident 
considérablement à programmer. On peut distinguer des instructions 
d’aide à l'écriture des programmes, des instructions d’aide à la 
recherche des erreurs et enfin des instructions diverses qui facilitent la 
programmation. 
Aide à l'écriture 


Cette catégorie comporte les instructions de numérotation 
automatique, de renumérotation et de suppression d’un bloc 
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d'instructions qui manquaient aux précédentes versions de Basic. Il s’y 
ajoute l'instruction de programmation des touches de fonction. Ces 
instructions s’utilisent presque exclusivement en mode direct. 


AUTO 

Cette commande lance la numérotation automatique. Elle est de la 
forme : 

AUTO n1,n2 


où nl est le numéro de départ et n2 est l’intervalle entre numéros. Les 
deux paramètres ont pour valeur par défaut 10. 


DELETE 


Cette commande supprime une série d’instructions. Les numéros de 
lignes à supprimer sont spécifiés comme dans LIST : 


DELETE ni-n2 


DELETE tout court est dangereux car cela revient à supprimer la 
totalité du programme. 


RENUMBER 


De la forme : 
RENUMBER ad,nd,i 


cette commande renumérote le programme à partir de la ligne ad. Les 
nouveaux numéros commencent à nd (qui remplace ad) et l'intervalle 
est i. 


Cette commande est assez longue à exécuter. 
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KEY 


Cette instruction permet de programmer n’importe quelle touche du 
clavier, mais elle est surtout utilisée pour les touches du pavé 
numérique : on dit que ce sont les touches de fonction. Elles ont un f 
sur 664 ou 6128. 


La seule combinaison préprogrammée à part les chiffres est CTRL 
RETURN, qui vaut RUN'"RETURN. 


Pour changer le rôle d’une de ces touches, on écrit : 
KEY numéro logique,chaîne 


où chaîne représente une expression chaîne de caractères dont la 
valeur apparaîtra dès qu’on appuiera sur la touche f’numéro’. Le plus 
souvent, l’expression se réduit à un texte entre guillemets, par exemple 
KEY 128,"BONJOUR", mais si l’on veut incorporer à la chaîne des 
caractères comme ESC, RETURN/ENTER ou des guillemets, il faut 
utiliser respectivement CHRS(27), CHRS$(13) ou CHRS$(34). 


Ex. KEY 129,"LIST'+CHRS(13) permet d’obtenir un listing dès qu’on 
appuie sur la touche f1. 


Les numéros logiques vont de 128 à 159. Pour les touches chiffres 
du pavé numérique, on a numéro=128+chiffre. 


KEY DEF 


Pour pouvoir programmer n'importe quelle touche, il faut utiliser 
KEY DEF qui associe un numéro logique au numéro physique d’une 
touche. Le numéro physique d'une touche est immuablement lié à 
l'emplacement physique de la touche sur le clavier. Le manuel 
constructeur fournit un schéma du clavier avec les numéros physiques; 
ce schéma est rappelé sur l’unité de disques de certains modèles. 


Le numéro logique est le plus souvent par défaut le code ASCII de 
la touche. En fait, il y a trois numéros logiques selon que la touche est 
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appuyée seule, avec SHIFT ou avec CTRL. L’instruction s’écrit : 
KEY DEF np;r,nlnis,nlc 


où np (de 1 à 79) est le numéro physique, r indique si la touche aura 
(r=1) ou non (r=0) la répétition automatique, nl est le numéro logique 
attribué à la touche seule. Les paramètres suivants sont facultatifs et 
ils attribuent un numéro logique à la touche utilisée respectivement 
avec SHIFT et avec CTRL. Rappelons que l’espace entre KEY et DEF 
est obligatoire. 


Une application évidente de KEY DEF est d’échanger les rôles de 
certaines touches : cela permettrait par exemple de simuler un clavier 
AZERTY. Ainsi, pour mettre le À à la place de la touche Q (numéro 
physique 67), il suffit de : 


KEY DEF 67,1,97,65,1 


(97 est le code ASCII de a, 65 est celui de A et 1 correspond à CTRL 
A). Attention, pour obtenir un clavier AZERTY complet, il faut faire 
les échanges complets : avec la seule instruction ci-dessus, vous avez 
deux touches A sur votre clavier. Pour les lettres accentuées, il faut en 
outre créer leur dessin, ce qui se fait avec SYMBOL comme on le 
verra plus loin. 


Traitements d'erreurs 
Les instructions TRON et TROFF aident au dépistage des erreurs 


tandis que le couple ON ERROR … /RESUME permet de laisser le 
contrôle au programme lorsqu'une erreur s’est produite. 


TRON/TROFF 


L’instruction TRON active le mode trace, l'instruction TROFF le 
désactive. En mode trace, on imprime les numéros de ligne à mesure 
qu’on passe dessus. C’est très efficace pour déceler une boucle 
indéfinie ou un test qui ne se fait pas comme prévu. 
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ON ERROR GOTO 


Si après exécution d’une instruction ON ERROR GOTO n , il se 
produit une erreur, le programme ne sera pas stoppé avec impression 
du message d'erreur approprié : le programme passera à l’instruction 
de numéro n spécifié. 


A cette instruction, vous démarrez votre propre routine d'erreur. 
Vous aurez probablement besoin de connaître le numéro de la ligne où 
l'erreur s’est produite : il est contenu dans la variable système ERL,; le 
numéro d’erreur (ex. 2 : syntaxe, 11 : division par 0 , etc., dont vous 
trouverez la liste complète dans le manuel constructeur) est, lui, dans 
la variable ERR. Vous pouvez le tester pour isoler un type d’erreur 
auquel vous réservez un traitement particulier. 


ON ERROR GOTO O désactive votre traitement d’erreur; on 
revient donc à l’action habituelle du système : message et arrêt. 


RESUME 


Votre routine d'erreur doit se terminer par une instruction 
RESUME qui fait continuer l’exécution. 


Avec RESUME tout court, on reprend à l'instruction qui avait 
causé l'erreur, c’est-à-dire qu’on essaie de la ré-exécuter; il faut bien 
sûr que votre traitement d’erreur ait corrigé la condition qui causait 
l'erreur. 


Avec RESUME NEXT, on reprend à l'instruction qui suit 
l'instruction où l'erreur s'était produite. RESUME n fait reprendre à 
l'instruction numéro n. 

Exercice 1.5 
Isoler l’erreur "DATA exhausted” (ERR=4) : dans ce cas, on doit 


reprendre au début des données. Pour les autres erreurs, on veut le 
comportement habituel du système. 
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Exercice 1.6 
Esquissez un moyen d’avoir les messages d’erreur en français. 


Enfin, il existe une instruction, ERROR e qui crée artificiellement 
l'erreur no e, e pouvant aller jusqu’à 255 alors que les erreurs connues 
par Basic vont jusqu’à 32. Vous pouvez donc implanter votre propre 
gestion des erreurs particulières à votre traitement. 


Améliorations diverses 


Nous regroupons dans cette section soit diverses instructions 
nouvelles qui facilitent la tâche du programmeur, soit des extensions 
d'instructions qui existaient déjà dans les versions élémentaires de 
Basic. 


RESTORE n 


RESTORE peut être accompagné d’un numéro de ligne : on 
reprend aux DATA de cette ligne. 


PRINT USING 


Cette forme facilite beaucoup le cadrage et la présentation des 
impressions. On écrit : 


PRINT USING format;liste 


où ‘liste’ est la liste des données à imprimer; elles sont séparées par des 
virgules alors que c’est un ‘> qui sépare du format. ‘format’ est une 
chaîne de caractères, spécifiée entre guillemets ou sous forme de 


variable alphanumérique. 


La chaîne de format est une suite de spécifications qui se 
rapporteront à chacune des données à imprimer. S’il y a moins de 
spécifications que de données, le format est reparcouru (= réutilisé). 
Les spécifications sont séparées par des espaces (qui apparaissent à 
l'impression). 
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Maintenant, chaque spécification est une image de la donnée qui 
sera imprimée, c’est-à-dire que chaque caractère de la spécification 
correspond à un caractère qui sera imprimé. 


Ex. Si À vaut 5, PRINT "###"A fera imprimer m5 (les m figurent 
des espaces) : il y a 3 caractères imprimés puisque le format a 3 
caractères. 


Pour une donnée numérique, les caractères possibles sont # + - ., 
$$, ** et, en fin de format, une suite de 4 f (flèche en haut). Voici 
leurs significations. 


# représente un chiffre, avant ou après le point décimal. 
+ et - représentent le signe. Ils forcent l’impression du signe même 
si le nombre est positif : + fait imprimer un ‘+, - fait 


imprimer un espace. Bien sûr, si le nombre est négatif, c’est 
un ’-” qui est imprimé; on a le moyen de le faire imprimer 
en fin du nombre, ce qui est parfois utilisé en comptabilité. 
- ne peut figurer qu’en fin de format. 


représente le point décimal. Le nombre de ’#’qui le suivent 
détermine le nombre de décimales qui seront imprimées 
(avec éventuellement un arrondi) tandis que le nombre de 
#’ qui la précèdent fixe le nombre de chiffres ou espaces 
de la partie entière. Le problème de l'alignement des 
impressions de nombres est résolu. Bien sûr, il ne peut y 
avoir qu’un ’. dans un format; s’il n’y en a pas, on impose 
l'impression sous forme d’entier. 


. placée devant le point fait imprimer des virgules selon la 
méthode anglaise pour séparer les groupes de trois chiffres 
dans un grand nombre. 


$5$ en tête du format fait imprimer un ‘$ (signe monétaire, 
utile pour représenter un prix). En France, on peut 
employer FF au lieu de $$. 

Hs en tête de format fait remplacer les espaces en tête du 

nombre par des *. Cela peut servir, par exemple, à protéger 

des chèques. ** peut se combiner avec le signe monétaire : 

**#$ ou **F. 
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AAAA 


placés en fin de format imposent l’impression du nombre en 
notation scientifique (de la forme x.yyE+ee). 


Si un nombre est trop grand pour tenir dans le format demandé, 
on imprime un signe % et le nombre avec autant de caractères que 
nécessaire. 


Placés avant ou après le format, les caractères autres que ceux vus 
ci-dessus sont purement et simplement recopiés dans l’impression. 


Ex. Si À vaut 45.678, PRINT "* ###.## *": À fait imprimer : 
* 45.68 * 
Exercice 1.7 


Complètez le tableau : 


| format | nombre | impression | 
RE 
| HHHH | -1000 | | 
| * SS##.## * l 5.948 | 
| * S$H#.## * 54.95 | 
| + SS##.## * | 545.95 | | 
| * $SS#4.## * | 5435.95 | | 
| * SSH4.## * | -5.95 | | 
| A=### M | 35.4 | | 


| 


Pour une donnée alphanumérique, les caractères de format autorisés 
sont & ! \ et espace . 


& permet d'imprimer à cheval sur deux lignes. En effet, si 
compte tenu de la position actuelle sur la ligne et de la 
largeur de ce qu’il faut imprimer, Basic détermine que cela 
ne tiendra pas, il fait aller à la ligne avant de commencer 
l'impression. Le format & supprime cet effet. 


| fait imprimer uniquement le premier caractère de la chaîne. 


25 


PEINTRE ET MUSICIEN SUR AMSTRAD 


\ \ (avec n espaces) fait imprimer la chaîne dans une zone de 
n+2 caractères. Si la chaîne est plus longue, on imprime les 
n+2 premiers caractères; si elle est plus courte, on termine 
par des blancs. 


DEC$ 


DECS(n,f) fournit une représentation décimale de l'expression 
arithmétique n, suivant le format f. 


F se présente comme un format de PRINT USING. 
INSTR 


Cette fonction de la forme INSTR(D,AS$,BS$) renvoie 0 si la chaîne 
B$ n’est pas comprise dans A$ et, si elle y est, on obtient la position 
dans A$ où commence la copie de B$. D est la position de départ de 


la recherche; si D n’est pas spécifié, on commence au début comme si 
D=1. 


Ex. INSTR("BONJOUR","JOUR") vaut 4. 


Les trois fonctions qui suivent sont surtout utiles en relation avec 
le langage machine. 


HEXS$ 


HEXS(X,N) donne la représentation hexadécimale du nombre X 
avec N chiffres hexadécimaux. 


BIN$ 
BINS(X,N) donne la représentation binaire du nombre X (qui doit 
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être compris entre -32768 et 65536) avec N chiffres binaires. Comme 
pour HEX$, N doit être <= 16. 


@ 


@variable fournit l’adresse de la variable spécifiée. Sur 464, les 
arguments de certaines instructions doivent être fournis sous la forme 
@X lorsqu'ils ne sont pas des constantes. 


Gestion d'horloges 


L’AMSTRAD possède des "chronos" que l’on peut lancer et qui, 
après épuisement du temps vont créer une interruption. En attendant 
le délai, l’ordinateur peut effectuer d’autres opérations. Il y a quatre 
chronos numérotés de 0 à 3. 


AFTER 


Cette instruction est de. la forme AFTER n,c GOSUB 1. Après un 
délai de n cinquantièmes de seconde passés sur le chrono c, on appelle 
le sous-programme qui commence en ligne 1. Entre temps l'AMSTRAD 
exécute les instructions qui suivent AFTER. Si c n’est pas spécifié, on 
prend le chrono © par défaut. 


EVERY 


EVERY n,c GOSUB I est très analogue à AFTER et les paramètres 
jouent le même rôle. La différence est que l'interruption est 
périodique : tous les n/50 seconde, le sous-programme 1 … est exécuté, 
pendant que l'AMSTRAD exécute d’autres instructions. 

Ex. (simplet mais démonstratif) : 


On imprime BONJOUR de façon répétée et toutes les secondes, on 
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fait un bip : 


10 EVERY 50 GOSUB 100 
20 PRINT "BONJOUR" : GOTO 20 
100 SOUND 1,142 : RETURN 


(on voit la forme où on prend le chrono 0 par défaut) 
Les appels cessent lorsque l’exécution du programme est terminée 
par STOP, END ou double ESC. Dans le cas de AFTER, si la fin a 


lieu avant épuisement du délai, le sous-programme événement n’aura 
jamais lieu. 
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LES MODES GRAPHIQUES 


2.1 Modes d'affichage de l'AMSTRAD 


L’AMSTRAD possède trois modes d’affichage numérotés 0, 1 et 2, 
qui diffèrent par la résolution et les choix de couleurs possibles. 
Chaque mode est à la fois graphique et texte et les textes se mélangent 
facilement aux dessins. On peut aussi définir huit fenêtres sur l’écran. 
Le mode d’affichage est valable pour toutes les fenêtres. L’instruction 
de changement de mode vide toutes les fenêtres. Seule la fenêtre 0 
peut avoir des dessins graphiques. 


Les moniteurs et téléviseurs 


L’'AMSTRAD est livré avec un moniteur. Bien entendu, avec le 
moniteur noir et blanc (ou plutôt vert), les couleurs sont remplacées 
par des nuances d'intensité. Vous pouvez aussi utiliser un téléviseur, 
soit avec l'interface Péritel vendue par AMSTRAD, soit avec un 
montage fait par vous-même et dont nous rappelons le schéma 
ci-dessous. Dans ce dernier cas, vous devez alimenter l'AMSTRAD 
avec le moniteur, ce qui est encombrant, ou alors "bricoler" aussi une 
alimentation 5V (plus 12V pour le 664/6128). 
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1 Rouge B V R M 
2 Vert 
3 Bleu | 1 3 5 7 9 11 13 15 17 19!] 
4 Synchro | !| 
5 Masse | 2 4 6 8 10 12 14 16 18 20\| 
6 Luminance | 
CL CR VI 
(vue arrière) (prise Péritel) 
Câble Péritel 
AMSTRAD Péritel 
jun 15 
2 --------- 11 
3  --------- 7 
4 --------- 16 
5. jéssieess 17 
6 --------- 20 


(Les autres broches ne sont pas connectées. Selon le téléviseur, il peut 
être nécessaire de relier une pile 9 V avec le + à la broche 8 de la 
prise Péritel). 


Possibilités des différents modes 


Le mode qui a la plus basse résolution est le mode 0. Il permet 
d’afficher 25 lignes de 20 caractères de texte. En graphique, il offre 
une grille de 200 (vertical) par 160 (horizontal). En mode 1, on a 25 
lignes de 40 caractères et une résolution graphique de 200 par 320 : 
dans chaque mode, la résolution horizontale est doublée par rapport au 
mode précédent; la résolution verticale reste la même. En mode 2, on a 
25 lignes de 80 caractères et une résolution graphique de 200 sur 640 
pixels. Rappelons qu’on appelle pixel (abréviation de picture element = 
élément d'image) le point élémentaire de la résolution graphique. 


Le gain en résolution, lorsqu’on passe d’un mode à l’autre, est 
compensé par une perte au niveau du choix des couleurs : en mode 0, 
on peut avoir 16 couleurs différentes simultanément sur l'écran, en 
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mode 1, il n’y en a plus que 4 et en mode 2, il n’y a plus que deux 
couleurs possibles, la couleur de fond et celle de tracé. 


Passage d’un mode à l’autre 


L’instruction fondamentale pour changer de mode d'affichage est 
MODE. Elle est de la forme : 


MODE m 
où m est le numéro du mode d’affichage désiré 0, 1 ou 2. 


Attention, toute exécution de l'instruction MODE vide l'écran, et 
même toutes les fenêtres de l’écran. 


Exercice 2.1 
Activez le mode moyenne résolution, 4 couleurs. 


Nous pouvons maintenant passer les modes d’affichage en revue de 
façon plus détaillée. 


2.2 Graphiques en forme de texte 


Malgré le titre de cette section, il ne s’agit pas ici du problème du 
mélange texte-dessin qui sera abordé plus loin. Il s’agit de l’utilisation 
des caractères semi-graphiques qui permettent d'obtenir certains 
dessins avec les instructions classiques d’impression de texte. Bien sûr, 
nous ne disons rien ici de l’impression de textes ordinaires : elle relève 
du Basic le plus élémentaire. Le mode texte permet un peu de 
graphiques grâce au jeu de caractères semi-graphiques que présente 
PAMSTRAD. Les caractères semi-graphiques s’obtiennent par des 
PRINT CHRS (code). Les caractères semi-graphiques sont décrits avec 
leurs codes dans le manuel constructeur et dans "La découverte de 
PAMSTRAD". 
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Exercice 2.2 


"Dessine-moi un mouton". 


Le dessin peut se faire par de simples PRINT des caractères 
choisis. Vous pouvez d’ailleurs enrichir le jeu de caractères 
semi-graphiques en redéfinissant vous-même les caractères dont vous 
avez besoin à l’aide de l’instruction SYMBOL. Nous n'insisterons pas 
plus car cette méthode a été complètement décrite dans "La découverte 
de l'AMSTRAD". 


Il est plus judicieux d’entrer la suite de caractères voulus dans une 
variable chaîne de caractères (y compris les mouvements de curseur) : 
un simple PRINT de cette variable fera afficher le dessin. Maintenant, 
pour définir la variable, le mieux est de mettre la suite des codes dans 
une instruction DATA : 


10 DATA 214,10,143,143,143,215,10,8,8,8,8,8,204,204,32,32, 
205,205,0 

20 READ A : MOUTS=" 

30 WHILE A<>0 : MOUTS-MOUTS+CHRS(A) : WEND 

40 PRINT MOUTS 


Les caractères de contrôle intéressants ici sont : 8 (curseur gauche), 
9 (curseur droite), 10 (curseur bas), 11 (curseur haut), 12 (vidage 
écran), 13 (retour chariot) et 30 (curseur au coin supérieur gauche). 
Nous verrons bientôt qu’on a aussi des caractères de changement de 
couleurs. 
Exercice 2.3 

Pourrait-on appeler la variable MOUTONS ? 

Comment positionner le dessin sur l'écran ? On dispose de 


l'instruction LOCATE. 


Pour se positionner ligne L colonne K, il suffit de faire LOCATE 
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K,L; essayez par exemple : 


LOCATE 15,10 : PRINT MOUTS 


2.3 Effets de couleurs 


En mode texte, il y a deux manières de commander la couleur des 
caractères qu’on imprime. En mode graphique, seule la première 
méthode est applicable. La première méthode contrôle aussi la couleur 
de fond de l’écran et celle de la bordure autour de l’écran. 


Pour comprendre le fonctionnement des instructions de gestion de 
la couleur, il faut savoir que les couleurs sont gérées de manière 
indirecte. Tout se passe comme s’il y avait un catalogue de peintures et 
des pots choisis dans le catalogue. Ensuite, on a un stylo et du papier 
qui peuvent être trempés dans les pots. Le catalogue comprend 27 
couleurs possibles. Selon le mode, on a à disposition 16 pots (mode 0), 
4 pots (mode 1) ou seulement deux pots (mode 2). Sur 664/6128, on a 
en fait deux papiers et deux stylos car on distingue le papier et le 
stylo graphiques de leurs homologues texte. En fait, cette distinction 
n’a pas un intérêt très grand et si on ne fait rien, l'AMSTRAD les 
confond. 


Un peu paradoxalement, le remplissage d’un pot a un effet 
rétroactif : si l’on change la couleur d’un pot, tout ce qui avait été 
coloré avec ce pot change de couleur. Au contraire, le trempage par 
exemple du stylo dans un pot n’a d’effet que pour les tracés futurs. 


Maintenant, il faut remplir un pot avec une peinture. C’est le rôle 
de l'instruction INK de la forme : 


INK nl,n2 


qui "remplit le pot nl avec la peinture n2" ou en d’autres termes 
associe la couleur n2 à l’encre nl. 


Il y a aussi la forme INK ni,n2,n3 qui attribue à l’encre nl une 
couleur qui clignote (ou oscille) entre les couleurs n2 et n3. La vitesse 
de clignotement est fixée par l'instruction SPEED INK t2,t3 où t2 et 
t3 sont les temps d’activité des couleurs n2 et n3 respectivement (en 
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Il y a une autre instruction qui, elle, détermine la couleur du cadre 
de l'écran. C’est BORDER c où c est un code de couleur de 0 à 26. 


Exercice 2.4 


On veut la bordure rose, le fond bleu et les caractères blancs. 


Exercice 2.5 (macabre) 

Préparez un faire-part de décès. 

Ces propriétés ont pour conséquence que les caractères et les fonds 
consécutifs peuvent changer de couleurs à volonté puisqu’une couleur 
de caractères n’est valable que pour les caractères imprimés après le 
PEN … qui la détermine et elle n’est valable que jusqu’au prochain 
PEN … qui la change. 

Exemple : PEN 3:PRINT "BONJOUR ";:PEN 2:PRINT "MADAME" 


imprime BONJOUR en rouge et MADAME en bleu. 


Exercice 2.6 
Comment faire pour avoir dans la première moitié de l’écran du 


texte en rouge sur fond vert, et dans la deuxième moitié du texte en 
bleu sur fond gris clair ? 


Ceci implique une "résolution" en couleurs égale à la maille 
caractères sur l'écran puisque l’on peut changer de couleurs d’une 
maille caractères à l’autre. Nous verrons que pour les graphiques, cette 
résolution est à l’échelle du pixel. 


Exercice 2.7 


Recouvrir l’écran d’un pavage aléatoire de couleurs. 
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Caractères de contrôle 


La seconde méthode consiste à imprimer un caractère de contrôle 
(code < 32). Il se trouve que certains caractères de contrôle ont reçu 
pour rôle de simuler les instructions PAPER, PEN, INK et BORDER. 
En fait il faut imprimer une séquence de caractères puisqu'il faut 
fournir les paramètres. 


Ainsi, la séquence CHRS$(14);: CHRS(n) simule PAPER n 
CHRS(15),CHRS(n) simule PEN n 


CHRS$(24) échange les couleurs de PEN et PAPER 
CHRS(28),CHRS(n1);,CHRS(n2);,CHRS$(n3) simule INK n1,n2,n3 


Exemple 

Si nous voulons que notre mouton ait la tête rouge et le reste du 
corps jaune, le début de la chaîne MOUTS s’écrira (on suppose les 
options de INK par défaut en mode 1 ): 


MOUTS=CHRS(15)+CHR$(3)+CHRS(214)+CHRS$(15)+CHRS$(1)+ …. 


ce qui revient à PEN 3, impression de la tête et retour à PEN 1. 


Les fenêtres 


Un moyen de définir des zones sur l'écran ayant des couleurs 
différentes ou des textes bien délimités est d'employer les fenêtres. 
Une fenêtre se définit par : 


WINDOVW #f,g,d,h,b 


où f est le numéro de fenêtre (de O0 à 7),g est la colonne (de 1 à 20, 40 
ou 80) du coin supérieur gauche, h (de 1 à 25) est la ligne du coin 
supérieur gauche, d et b déterminent de même le coin inférieur droit. 
La valeur limite pour une colonne dépend du mode; attention on 
compte à partir de 1. 


On imprime dans une fenêtre par PRINT #f, … où f est le 
numéro. Cette instruction a pour cas pæticulier PRINT qui considère 
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la fenêtre O0 par défaut. Lorsqu'on imprime dans une fenêtre, ce qui 
est dans les autres fenêtres est en principe inchangé. En particulier si 
l'impression entraîne un défilement, celui-ci ne se produit que dans la 
fenêtre. 


Il peut y avoir jusqu’à huit fenêtres distinctes. Elles peuvent se 
recouvrir en partie; mais attention, la gestion de l'AMSTRAD n’est pas 
aussi perfectionnée que certains logiciels professionnels. Si, en 
imprimant dans la fenêtre 1 qui recouvre la fenêtre 2, vous effacez un 
caractère de la fenêtre 2, celui-ci ne réapparaîtra pas lorsque vous 
effacerez la fenêtre 1. Le mieux est souvent de créer des fenêtres 
jointives mais non recouvrantes. 


Les instructions locales à une fenêtre, c’est-à-dire qui admettent 
une forme portant sur une fenêtre sont CLS, LOCATE, PAPER, PEN, 
PRINT, LIST et INPUT; elles s’écrivent : 


CLS #f (vidage de la fenêtre f) 

LOCATE #f,k,l (les coordonnées sont comptées à partir du coin 
supérieur gauche de la fenêtre) 

PAPER #f,n (p. ex. si une fenêtre 1 est définie, la séquence 
PAPER #1,3 : CLS #1 fait apparaître un rectangle rouge) 

PEN #f,n (change la couleur d'écriture pour les PRINT #f pas 
pour les PRINT) 

PRINT #f,expressions 

LIST lignes,#f (listing dans une fenêtre; permet de visualiser 
simultanément deux parties du programme) 

INPUT#f,"texte";variables (acquisition dans une fenêtre) 


Une application spécialement intéressante d’INPUT dans une 
fenêtre est le contrôle d’une saisie au clavier-écran : vous définissez 
une fenêtre qui encadre exactement le nombre attendu et ainsi la 
frappe de l'utilisateur est guidée. 


Au contraire, les autres instructions sont globales vis-à-vis des 
fenêtres. C’est notamment le cas de MODE : la taille des caractères et 
le nombre de couleurs sont les mêmes dans toutes les fenêtres, et de 
INK : le choix des couleurs est le même pour tout l’écran. 


38 


LES MODES GRAPHIQUES 


2.4 Les modes graphiques 


Il ne s’agit pas à proprement parler de modes graphiques puisque, 
dans chacun des trois modes, les tracés graphiques coexistent avec le 
texte. Il faut noter qu’il ne peut y avoir de graphiques que dans la 
fenêtre O. 


Il peut être judicieux de se réserver la fenêtre O pour les dessins et 
de se définir une fenêtre texte de 4 ou 5 lignes en bas de l’écran pour 
une légende ou une explication. Cette fenêtre texte peut être utile 
aussi pour examiner le listing du programme. 


Les trois modes diffèrent entre eux par la résolution horizontale, la 
résolution verticale restant de 200 dans tous les cas. Les résolutions 
horizontales sont comme nous l’avons déjà dit de 160, 320 et 640 
pixels dans les modes 0, 1 et 2. Le pixel double de largeur lorsqu'on 
descend d’un mode, mais, pour compenser, on a un plus grand choix 
de couleurs. On a le même choix de couleurs que pour les textes : en 
mode 2, deux couleurs possibles, 4 en mode 1 et 16 en mode 0. Le 
mode 1 représente un excellent compromis. 


La résolution en couleurs est la même que la résolution spatiale, 
c’est-à-dire que, quelle que soit la direction, deux pixels consécutifs 
peuvent être de couleurs différentes. C’est un avantage de 
PAMSTRAD car ce n’est pas le cas pour tous les micro-ordinateurs 
familiaux. 


Les coordonnées sont X en horizontale, de gauche à droite et Y en 
verticale, de bas en haut. Y va de 0 à 399, X va de 0 à 639 quel que 
soit le mode. Les coordonnées sont les mêmes dans tous les modes, ce 
qui permet une compatibilité des programmes de tracé, mais, bien sûr, 
les dessins seront plus grossiers en modes 1 et surtout 0. Les 
coordonnées verticales de O0 à 400 laisseraient supposer une résolution 
double de celle que nous avons annoncée : il n’en est rien, simplement 
les pixels ayant Y=-2*K et Y=-2*K+1 forment en fait le même pixel. 
C'est le même principe qui joue pour permettre d’avoir les mêmes 
coordonnées X dans tous les modes. 


Un point très important est que vous pouvez spécifier des tracés 


hors des limites : bien sûr les points seront invisibles et les lignes 
seront tronquées à la frontière de l’écran. Tout se passe comme si 
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l'écran était une fenêtre dans un écran plus vaste. Cela vous évite de 
tester à tout moment si vos points sont bien dans l’écran. En fait, on 
peut changer l’origine des coordonnées et spécifier une fenêtre 
graphique. 


Exemple : Faites (en mode direct) MODE 1 : CLS (résolution 
moyenne et vidage). 


Faites ensuite PLOT 50,50 : DRAW 800,200 


On obtient une droite sur l'écran, des points 50,50 à 800,200. La 
droite est arrêtée au bord droit de l’écran car la coordonnée X du 
point d'arrivée (800) est supérieure à la limite. Vous voyez que la 
droite est tracée quand même. Une droite tracée par DRAW a pour 
point d’arrivée le point spécifié et pour point de départ le dernier 
point obtenu; ici, on l’initialise par PLOT. 


La droite est jaune : si l’on ne précise pas de couleur, le tracé est 
fait dans la couleur de PEN. Faites maintenant : 


DRAW 400,400 : on obtient une droite entre les points 800,200 
(qui est hors du dessin) et 400,400. 


Faites maintenant DRAW 300,0,3 : on obtient une droite qui 
aboutit au point 300,0 mais, surtout, qui est rouge (couleur d’encre 
numéro 3). Si nous avions fait DRAW x,y,0 nous n’aurions rien vu car 
le tracé aurait été de la même couleur que le fond; c’est la méthode 
idéale pour effacer un tracé. 


On voit qu’on peut avoir des tracés de différentes couleurs : pour 
changer de couleur entre deux tracés, il suffit de spécifier l’encre dans 
l'instruction de tracé ou de faire un PEN … 


Il est intéressant de voir ce qui se passe au croisement des deux 
droites : c’est la couleur de la dernière droite tracée qui domine au 
croisement. En fait, ce comportement peut être modifié (plus 
facilement sur 664/6128) avec ce qu’on appelle le mode de tracé. Nous 
le verrons plus loin. 


Nous retrouverons plus en détail l’instruction DRAW au chapitre 
suivant qui décrit toutes les instructions graphiques. 
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GRAPHIQUES HAUTE RESOLUTION : GESTION 


Dans ce chapitre, nous passons en revue les principales instructions 
graphiques du Basic de l'AMSTRAD et nous en faisons l’application 
dans le domaine de la gestion. Le chapitre suivant verra, lui, les 
instructions et les méthodes les plus spécialisées, avec leur application 
au dessin artistique et scientifique. 


3.1 Les instructions graphiques 


Les instructions graphiques se répartissent en trois catégories : les 
instructions de dessin effectif, les instructions de mode qui définissent 
les paramètres du dessin futur et une série de fonctions qui "lisent" des 
données concernant les dessins. 


INSTRUCTIONS DE MODE 


Ces instructions définissent les paramètres qui vont influer sur les 
dessins produits par les instructions de dessin qui suivent. Nous avons 
déjà vu les principales instructions de cette catégorie : MODE, INK, 
PAPER et PEN. Nous les rappelons pour mémoire. 
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3.2 MODE 


C’est l’instruction de mode la plus importante puisqu’elle détermine 
le mode d’affichage. Le mode détermine simultanément la taille des 
caractères de texte et la résolution graphique. Textes et dessins 
peuvent être mélangés sur l’écran. La création d’une fenêtre texte en 
bas de l’écran ne dépend pas du mode : vous pouvez la créer par 
WINDOW. Rappelons que les graphiques ne peuvent apparaître que 
dans la fenêtre 0. 


Le passage d’un mode à un autre est toujours associé à un vidage 
écran ce qui est un peu gênant. 


INK 


Cette instruction associe à un numéro d’encre une couleur 
véritable. Si on spécifie deux couleurs, on obtient un effet de 
clignotement. Seuls les deux premiers numéros sont utilisables en mode 
2; on a droit à 4 numéros en mode 1 et à 16 en mode 0. On ne peut 
jamais avoir les 27 couleurs différentes possibles sur l'écran. 


PAPER - PEN 


Ces instructions attribuent au fond de l’écran (PAPER) ou au tracé 
(PEN) un numéro d’encre, la couleur véritable qui en résulte étant 
déterminée par INK. Le 664 et le 6128 possèdent en plus les 
instructions GRAPHICS PAPER et GRAPHICS PEN qui permettent 
de différencier la couleur des tracés graphiques. Sur le 464 qui ne 
dispose pas de GRAPHICS PAPER, le fond pour les graphiques a 
toujours l’encre n° 0. 


CLS - CLG 


Cette instruction a pour rôle de vider l’écran. CLS vide l’écran 
texte ou plutôt la fenêtre texte spécifiée (CLS #f). CLG vide l'écran 
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graphique ou plutôt la fenêtre graphique. Lorsqu'on n’a pas défini de 
fenêtres, on voit peu de différence, et pourtant il y en a. 


1- CLS ramène le curseur texte en haut de l'écran et laisse le 
curseur graphique en place. CLG ramène le curseur graphique à 
l’origine et laisse le curseur texte en place. 


2- CLS met la fenêtre spécifiée dans la couleur de fond 
correspondant au dernier PAPER. CLG met la fenêtre graphique 
dans la couleur de fond correspondant au dernier GRAPHICS 
PAPER; sur 464, c’est la couleur de l’INK O0 qui intervient. 


Curseur texte et curseur graphique 


Puisque textes et graphiques coexistent dans la fenêtre 0, il y a 
deux curseurs, le curseur texte et le curseur graphique. Le curseur 
graphique marque la dernière position atteinte par un tracé. Il n’est 
pas matérialisé sur l'écran. Le curseur texte marque la prochaine 
position où apparaîtra un caractère; il est matérialisé par un rectangle 
clignotant. 


Outre les déplacements automatiques, on peut déplacer le curseur 
graphique par MOVE, le curseur texte par LOCATE. 


Les coordonnées 


Dans tous les modes, l’écran graphique obéit au schéma : 
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Le fait que les coordonnées soient les mêmes dans tous les modes 
exige une explication. En fait, les coordonnées employées sont celles 
du mode le plus fin, le 2. Dans ce mode, deux valeurs de x 
consécutives correspondent à deux points (pixels) voisins mais distincts. 
Dans le mode 1, les pixels sont deux fois plus larges ou encore un 
pixel du mode 1 couvre deux pixels du mode 2, de sorte que les points 
de coordonnées x=2k et x=2k+1 sont confondus. Le phénomène 
s’accentue dans le mode 0 où un pixel est quatre fois plus large qu’en 
mode 2 de sorte que les points de coordonnées 2k<x<2k+3 sont 
confondus. 


C’est le même principe qui explique que la résolution verticale est 
bien de 200 et non de 400 comme les coordonnées pourraient le faire 
croire : les points de coordonnées y=21 et y=21+1 sont confondus. 


Normalement, on spécifie des coordonnées conformes à ces 
schémas donc des ordonnées comprises entre O et 399 et des abscisses 
comprises entre 0 et 639. 


Mais ce n’est pas obligatoire en vertu de deux phénomènes, le 
fenêtrage et le décalage d’origine. L'écran est considéré comme une 
fenêtre dans un espace plus grand et seuls les points qui tombent dans 
cette fenêtre sont tracés. Vous pouvez en fait spécifier des 
coordonnées comprises entre 32767 et -32767. Vous pouvez aussi 
spécifier les dimensions de la fenêtre graphique et décaler l’origine. 
C’est l’objet de l’instruction ORIGIN que nous voyons maintenant. 


ORIGIN 


Cette instruction effectue deux choses : elle fixe les coordonnées de 
la nouvelle origine des coordonnées et elle définit la fenêtre graphique 
(dans la "fenêtre WINDOW #0" puisqu'il n’y a qu’elle qui peut avoir 
des graphiques). Elle est de la forme : 


ORIGIN X0,Y0,G,D,H,B 
où XO0,YO sont les coordonnées (exprimées par rapport à l’origine 
standard, c’est-à-dire le coin inférieur gauche de l’écran) du centre 


des nouvelles coordonnées : à partir de ce moment les coordonnées 
intervenant dans toutes les instructions de tracé seront exprimées par 
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rapport à la nouvelle origine. Les autres paramètres sont facultatifs : 
ils représentent respectivement les abscisses des bords gauche et droit 
et les ordonnées des bords haut et bas de la fenêtre graphique si l’on 
désire en créer une. S'ils sont absents, la fenêtre graphique s’étend sur 
tout l’écran. 


Les paramètres de fenêtre sont exprimés en unités pixels. Si un 
paramètre implique une fenêtre dépassant un bord de l'écran, on n’en 
tient pas compte et la fenêtre s’arrêtera à ce bord. 


Pour vous rendre compte, faites en mode direct la suite 
d'instructions : 


ORIGIN 0,0,200,400,300,100 
PAPER 3 : CLS 
CLG 


vous obtiendrez un rectangle bleu sur fond rouge. 


Exercice 3.1 

Expliquez cette suite d'instructions. Pourquoi les deux premiers 
paramètres de ORIGIN sont-ils O ? 
Exercice 3.2 

On vient de faire ORIGIN 320,200. Quelles sont maintenant les 


coordonnées du coin supérieur droit de l’écran ? 


Une chose est à noter : dans l'instruction ORIGIN, ce sont toujours 
les coordonnées par rapport à l’origine standard qui interviennent : 
ainsi, pour rétablir l’origine au point bas gauche de l'écran, on fait 
ORIGIN 0,0. 


Coordonnées absolues et relatives 


On peut spécifier les coordonnées d’un point qu’on veut désigner 
soit par rapport à l’origine - on dit que les coordonnées sont absolues, 
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soit par rapport à la position actuelle du curseur graphique - on dit 
que les coordonnées sont relatives. En coordonnées relatives, en 
somme, on spécifie les composantes du vecteur déplacement du curseur 
graphique. Les instructions graphiques ont en principe deux versions 
(p. ex. MOVE et MOVER, PLOT et PLOTR etc.) : la forme avec un 
R final utilise des coordonnées relatives. 


Instructions de positionnement du curseur graphique 
MOVE et MOVER 


De la forme MOVE X,Y dans la version la plus simple, cette 
instruction positionne le curseur graphique au point de coordonnées 
absolues X et Y, tandis que MOVER DX,DY déplace le curseur 
graphique de DX,DY par rapport à sa position au départ de 
l'instruction (coordonnées relatives). 


Sur 664 et 6128, les deux instructions admettent deux paramètres 
supplémentaires facultatifs : 


MOVE X,Y,N,M 
où N est un numéro d’encre : les tracés futurs seront dans la couleur 
correspondante, et M est le mode de tracé qui deviendra actif pour les 


prochains tracés (voir plus loin la question des modes). 


Sur 464, il faut faire appel à DRAW ou PLOT pour changer la 
couleur de tracé. 


XPOS,YPOS 


Ces fonctions sans argument permettent de connaître à tout 
moment les coordonnées du curseur graphique. Ainsi, après un MOVE 
100,200 , PRINT XPOS,YPOS fait imprimer : 100 200. 


INSTRUCTIONS DE TRACÉ 
Ces instructions permettent de dessiner des points isolés ou des 


traits (segments de droite). Toutes admettent un couple de coordonnées 
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X,Y et un paramètre de couleur qui spécifie le numéro d'encre à 
employer. 


La couleur effective dépend de l’association encre-couleur spécifiée 
par la dernière instruction INK exécutée. En mode 2, on n’a que deux 
choix possibles : O0 = couleur du fond, donc tracé invisible ou 
effacement et 1 = tracé visible (du moins si l’on a fait PAPER O0 et 
PEN 1, ce qui est le cas le plus fréquent). En mode 1, on a 4 choix 
possibles et en mode 0, on en a 16. 


Sur 664/6128, on a en plus la possibilité de spécifier un paramètre 
de mode de tracé. 


Les instructions existent en deux versions selon que l’on fournit des 
coordonnées absolues ou relatives. Pour un tracé, le point de départ est 
la position actuelle du curseur graphique. Ce sont les coordonnées du 
point d’arrivée qu’on fournit, et, après l'instruction, ce point devient 
la nouvelle position du curseur graphique. 


PLOT - PLOTR 


C’est l'instruction qui trace (ou efface) un point. Sa forme la plus 
simple est : 


PLOT X,Y ou PLOTR DX,DY 
qui trace le point de coordonnées X,Y (PLOT) ou le point de 
déplacements DX,DY par rapport au curseur graphique (PLOTR). 


Après l'instruction, le curseur graphique vient sur le point tracé. 


Sous cette forme, le tracé se fait dans la couleur déterminée par 
GRAPHICS PEN sur 664/6128 et dans la couleur de l’encre 1 sur 464. 


La seconde forme ajoute deux paramètres facultatifs permettant de 
déterminer la couleur de tracé et le mode. Le 464 n’admet que le 
premier paramètre (le n° d’encre) : 


PLOT X,Y,N,M (même chose pour PLOTR) 


où N est le n° d’encre (de 0 à 1, 3 ou 15 selon le mode graphique) qui 
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sera utilisé dorénavant pour les tracés et M (de 0 à 3) est le mode de 
tracé qu’on impose. 


Il est temps d’expliquer ce que sont ces modes de tracé. 


Les modes de tracé 
Deux premiers éléments sont à noter tout d’abord : 


1 - Il ne faut pas confondre le mode de tracé, qui détermine l'effet 
véritable d’un tracé, avec le mode graphique qui détermine la 
résolution du dessin et le choix de couleurs. D’ailleurs, le mode 
de tracé peut avoir les valeurs 0 à 3 alors que le mode 
graphique peut avoir les valeurs 0, 1 et 2. 


2 - Le mode de tracé ne peut être imposé que sur 664/6128. Sur 
464, les tracés sont faits en mode de tracé 0. Les effets 
correspondant aux autres modes ne sont accessibles que de 
façon très compliquée en Basic. 


Pour comprendre comment fonctionnent les modes de tracé, nous 
raisonnons d’abord en mode graphique 2 dans lequel chaque pixel de 
l’écran correspond à un bit (pouvant valoir O0 ou 1) dans la mémoire 
d'écran et où les seuls numéros d’encre possibles sont 0 (point éteint = 
de la couleur du fond) et 1 (point allumé). Tracer un point consiste 
précisément à écrire la valeur voulue sur le bit correspondant de la 
mémoire d'écran. Si on veut allumer le point, on écrira la valeur 1 sur 
le bit, si on veut l’éteindre on écrira la valeur 0. 


En mode de tracé 0, on impose d’autorité la valeur allumé ou 
éteint au point tracé quelque soit son état antérieur. Après PLOT 
X,Y,1 le point est toujours allumé; après PLOT X,Y,0 il est toujours 
éteint. 

Dans les autres modes de tracé, l’effet obtenu est une combinaison 
du n° d’encre écrit et de l’état antérieur du point. 


En mode de tracé 1, on fait l’opération OU EXCLUSIF entre les 
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deux. Sa table de vérité est : 


on écrit on avait on obtient 























00-->0 éteint éteint éteint 
0 1 --> 1 ce qui donne éteint allumé allumé 
10-->1 allumé éteint allumé 
11-->0 allumé allumé éteint 


En mode de tracé 2, on fait l'opération ET entre les deux. Sa table 


on avait on obtient 


éteint éteint éteint 


de vérité est : 


ce qui donne éteint allumé éteint 
allumé éteint éteint 
allumé allumé allumé 


= em OO © 
- © © 

! 

! 

V 
—- © OO 


V v 





En mode de tracé 3, on fait l’opération OÙ entre les deux. Sa table 


de vérité est : 
on écrit on avait on obtient 























00-->0 éteint éteint éteint 
0 1 --> 1 ce qui donne éteint allumé allumé 
10-->1 allumé éteint allumé 
11--> 1 allumé allumé allumé 


On remarquera que si l’on vient de faire un tracé, il suffit pour 
l’effacer de le retracer en mode 1. 


Dans les autres modes graphiques, les choses sont plus compliquées 
car les numéros de couleur sont sur plusieurs bits et on effectue bit à 
bit la combinaison des deux numéros de couleur (celui qu’on écrit et 
celui qui est déjà présent) et c’est donc un troisième numéro qui est 
obtenu en définitive. 
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Le tableau ci-dessous montre ce qui se passe pour le mode 
graphique 1 où on a les numéros de couleur 0 à 3: 


on avait 





Chaque case de ce tableau contient un triplet qui donne les n°s de 
couleur obtenus respectivement en mode OÙ EXCLUSIF, ET et OU. 
Par exemple, en mode ou exclusif, si sur un pixel de couleur 1! 
(jaune), on écrit en encre 2 (bleu clair), on obtiendra du rouge 
(couleur par défaut de l’encre 3)!!! 


Pour obtenir ces effets sur 464, il vous suffit d'imprimer une 
séquence de caractères de contrôle. Ici, vous faites : PRINT 
CHRS(23);CHRS(MT) où MT est le mode de tracé que vous souhaitez 
obtenir. 


DRAW - DRAWR 


C’est l'instruction fondamentale de dessin. Elle permet de dessiner 
un segment de droite. Elle est de la forme : 


DRAW X,Y,N,M ou DRAWR DX,DY,N,M 


où Net M sont facultatifs et jouent le même rôle que dans PLOT et, 
bien sûr, seul N est spécifiable sur 464. Cette instruction fait tracer le 
segment de droite qui va de la position actuelle du curseur graphique 
au point de coordonnées spécifiées (de façon absolue ou relative selon 
qu’on emploie DRAW ou DRAWR). Dans le cas relatif, DX et DY 
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sont les composantes du vecteur tracé. Le vecteur peut être effacé si la 
couleur spécifiée est celle du fond. 


A l'issue de l’instruction le point d’arrivée est la nouvelle position 
du curseur graphique. 


Avec cette instruction, nous avons notre outil principal de dessin 
puisque toute courbe, aussi compliquée soit-elle, sera obtenue par 
juxtaposition de petits segments. 


Exercice 3.3 


Dessinez un triangle isoscèle d’axe vertical. 


Pointillés 


Les traits que nous obtenons avec DRAW ou DRAWR sont des 
traits pleins. Si nous voulions des traits pointillés, il faudrait alterner 
les DRAW et les MOVE, par exemple : 


100 PLOT 100,100 : FOR I=1 TO 20 
110 MOVER 5,7 : DRAWR 5,7 
120 NEXT 


Pour 664/6128, il y a un moyen encore plus simple et qui permet 
en plus de faire varier le type de pointillé obtenu. Il utilise 
l'instruction MASK qui n’existe pas sur 464 et qui est de la forme : 


MASK motif,premier 


où motif est un motif binaire sur 8 bits qui va définir le pointillé. 
Premier (paramètre facultatif) vaut O0 ou 1 selon que l’on veuille le 
premier point éteint ou allumé. 


Chaque ligne va être considérée comme formée de suites de 8 
pixels et les pixels correspondant à un bit 1 dans le motif seront 
allumés. 


MASK &X00001111 définit un pointillé régulier, 


MASK &X00110011 définit un pointillé plus fin, 
MASK &X11000000 définit : - - - - … 


S1 


PEINTRE ET MUSICIEN SUR AMSTRAD 


Dessin de rectangles 


Dès que l’on sait tracer des segments, il est facile de tracer des 
rectangles, surtout si les côtés sont parallèles aux axes de coordonnées. 
Le sous-programme suivant dessine le rectangle qui part du curseur 
graphique et a pour côtés DX et DY : 


10000 REM RECTANGLE VIDE 
10010 DRAWR DX,0 

10020 DRAWR 0,DY 

10030 DRAWR -DX,0 

10040 DRAWR 0,-DY 

10050 RETURN 


Un appel possible de ce sous-programme serait : 


MOVE X,Y : DX= … : DY= … : GOSUB 10000 


Exercice 3.4 


Quelle instruction -la plus simple possible- ajouter à ce 
sous-programme pour qu’il admette en plus le paramètre N, numéro 
d’encre du tracé ? 


Exercice 3.5 


Dessinez le même rectangle mais ayant subi une rotation de l’angle 
ALPHA. 


Exercice 3.6 


Dessinez un carré qui ait une diagonale horizontale. 
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Rectangles pleins 


Sur 664/6128, pour dessiner un rectangle plein, 1il suffit d’en 
dessiner un vide puis de le remplir avec l'instruction FILL. Comme 
cette instruction n'existe pas sur 464, nous donnons ci-dessous un 
sous-programme valable pour tous les modèles. II a pour paramètres 
d'entrée les dimensions DX et DY et, pour l'appeler, vous fixez les 
coordonnées du premier sommet et la couleur par PLOT X,Y,N : 
GOSUB 12000. 


12000 REM RECTANGLE PLEIN 

12010 ORIGIN XPOS,YPOS 

12020 FOR V=0 TO DY STEP 2*SGN(DY) 
12030 MOVE 0,V : DRAW DX,V 

12040 NEXT 

12050 ORIGIN 0,0 

12060 RETURN 


L'élément qui nécessite peut-être le plus d’explications est le STEP 
en 12020. Il fait 2 unités puisque Y varie de 0 à 400 pour une 
résolution verticale de seulement 200 : si on prenait une unité, le tracé 
durerait deux fois plus longtemps sans aucun bénéfice. Ensuite il doit 
avoir le signe de DY d’où l'emploi de la fonction SGN; en effet, les 
DX et DY peuvent être négatifs selon l'orientation que vous voulez 
donner à votre rectangle par rapport à son premier sommet. 


Exercice 3.7 
Dessinez un rectangle plein à l’intérieur d’un vide (a). Faites aussi 


l'inverse (b). 


(a) (b) 


Tracé de cercles 


Le Basic de l'AMSTRAD n’a pas d’instruction spéciale pour tracer 
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des cercles. Nous fournissons ci-dessous un sous-programme qui 
permet de tracer des cercles, des ellipses, des arcs de cercles et des 
polygones réguliers. Il a besoin des paramètres 
NE,XC,YC,R,F,AD,AF,AR et IA 


où NE est le numéro d’encre de tracé 

XC,YC sont les coordonnées du centre 

R est le rayon horizontal, F est le facteur d’ellipticité : le rayon 
vertical est égal à F*R de sorte que, en fait, on trace une ellipse de 
demi-axes R et F*R. 

AD et AF sont les angles de départ et de fin de l’arc tracé (valeurs 
par défaut 0 et 360 degrés) 

AR est l’angle de rotation de la figure, ce qui permet d’avoir des 
ellipses d’axes non horizontaux 

IA est l’incrément angulaire : en fait, on trace le polygone régulier 
à 360/IA côtés. La valeur conseillée est 2 degrés ce qui donne une 
bonne approximation du cercle; la valeur minimale 1 degré ne donne 
pas grande amélioration. Des valeurs sous-multiples de 360 donnent 
des polygones réguliers. Des valeurs supérieures à 90 donnent des 
polygones étoilés. Un polygone étoilé sera fermé à condition de 
spécifier comme angle de fin AF-IA*nombre de côtés à dessiner. 


REM CERCLE 
REM 











-LA/19 STEF IA 
Va RRxS IN CI) 
a dé D 


fs up és 
LUE] à 





Flo s Abe 


ATMCI) 2 TA=AF/168 
ÉETURN 








Avant une série d’appels à ce sous-programme, il est conseillé de 
donner des valeurs par défaut aux paramètres, ce qui permettra de ne 
donner que les valeurs spéciales au moment de l’appel. Ces valeurs par 
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défaut sont rétablies par le sous-programme au moment du retour : 


NE=1 : F=1 : AD=0 : AR=0 : AF=8*ATN(1) : IA=AF/180 


Quelques exemples 
Mettez-vous en mode 1 avant de taper les exemples : les dessins 


obtenus sont déjà assez fins, mais vous pouvez aussi vous mettre en 
mode 2. 


N.B. Nous reproduisons ci-après des copies d’écran sur imprimante; 
elles présentent une légère déformation par rapport à l’écran. 
Polygone étoilé : 


XC=200 : YC=200 : R=100 : DEG : AF=8*135 : IA=135 : CLG : 
GOSUB 20000 


Cercle, ellipse de grand axe vertical, ellipse de grand axe horizontal : 
10 CLS : R=100 : GOSUB 20000 


20 F=2 : R=50 : GOSUB 20000 
30 F=0.5 : R=100 : GOSUB 20000 : END 
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Ellipses avec rotations : 


10 CLS : R=100 : DEG 

20 FOR AA=0 TO 180 STEP 30 

30 AR=AA : F=0.5 : GOSUB 20000 
40 NEXT : END 





Hexagone inscrit dans une ellipse : 


CLS : DEG : IA=2 : F=1.4 : GOSUB 20000 
1A=60 : F=1.4 : GOSUB 20000 
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Quelques arcs : 
CLS : DEG : R=100 
AD=30 : AF=60 : GOSUB 20000 (1) 
AD=200 : AF=350 : GOSUB 20000 (2) 
AD=30 : AF=120 : R=80 : GOSUB 20000 (3) 
AD=20 : AF=110 : AR=10 : R=70 : GOSUB 20000 (4) 
AD=120 : AF=390 : R=60 : GOSUB 20000 (5) 





Il faut penser à fournir tous les paramètres qui risquent d’avoir été 
changés par un tracé précédent. Si vous fournissez F=1, vous 
obtiendrez un cercle à peu près rond (il peut y avoir une légère 
déformation due au téléviseur ou au moniteur). Sur l’imprimante, la 
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déformation est plus importante. Avec la DMP 2000 et le programme 
de copie décrit plus loin, il faudrait F-0.83 pour avoir un cercle 
parfait. 


Les angles sont indiqués en degrés ou en radians selon que l’on est 
en mode DEG ou RAD, dans le sens des aiguilles d’une montre. Le 0 
est horizontal vers la droite. Les arcs sont supposés tracés dans le sens 
des aiguilles d’une montre. 


Pour un polygone, vous pouvez changer son orientation soit par 
rotation générale, soit en donnant un angle de départ (à ce moment, il 
faut donner un angle final égal à 360+rotation si vous voulez que le 
polygone reste fermé). Pour des polygones inscrits dans des ellipses, 
cela fait une différence. 


Exercice 3.8 


Dessiner un secteur circulaire entre les angles À et B (un secteur 
circulaire est formé d’un arc et des rayons extrêmes). 


Exercice 3.9 


Dessiner une couronne circulaire pleine. 


FILL 


Voilà une instruction très intéressante dont le besoin s’est fait 
sentir à l'exercice précédent. Avec FILL il nous aurait suffi de 
dessiner les deux cercles extrêmes. En effet, FILL a pour résultat de 
remplir de couleur une zone limitée par des courbes. L’ennui est 
qu’elle n'existe pas sur 464, donc les exemples qui suivent ne 
s’appliquent qu’au 664/6128. Pour la simuler sur 464, il faut 
obligatoirement recourir au langage machine car un remplissage est 
toujours long. L’instruction s’écrit : 


FILL NE 


où NE est le numéro d'encre qu’on utilisera pour le remplissage (0 à 
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1, 3 ou 15 selon le mode graphique). 


Les coordonnées du point de départ qui doit être à l’intérieur de la 
zone à remplir sont celles du curseur graphique. 


Ex. GOSUB 20000 : MOVE XC,YC : FILL 1 dessine un disque 
(cercle plein) 
Exercice 3.10 


Produire la figure : 


ver 


rouge rouge 


jaun fond 


Exercice 3.11 


Dessinez Saturne avec un anneau. 


Mélange texte-dessin 


On peut parfaitement mélanger textes et dessins avec les 
instructions que nous connaissons déjà : LOCATE pour se positionner 
où on veut sur l’écran et PRINT pour imprimer. Le seul inconvénient 
est que LOCATE procure un positionnement en mailles caractères ce 
qui n’est pas aussi précis que la résolution graphique. Le couple TAG 
/ TAGOFF offre une solution : après TAG, les impressions (par 
PRINT) sont positionnées de sorte que le coin supérieur gauche du 
premier caractère à imprimer coïncide avec le curseur graphique. 


A lissue de l’impression de chaque caractère, le curseur graphique 


est déplacé de 8 pixels vers la droite, de sorte qu’on est prêt à 
imprimer le prochain caractère. Les instructions PRINT doivent se 
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5.9 


terminer par un ‘’; car, en mode TAG, les caractères de contrôle 
apparaissent sous forme d’un graphique : ce serait le cas du 
retour-chariot qui apparaît si le PRINT n’est pas terminé par ’:. 


Un autre effet important de TAG est que les textes écrits en mode 
TAG sont dans la couleur de l'encre graphique (spécifiée par 
GRAPHICS PEN sur 664/6128 ou par le paramètre d’encre de PLOT 
ou DRAVW) et non dans la couleur de texte (spécifiée par PEN). 


TAGOFF annule les effets de TAG : les PRINT sont à nouveau 
positionnés au curseur texte et non plus au curseur graphique et on 
revient à l’encre texte. 


Exercice 3.12 


Des cosmonautes ont marqué le nom SATURNE en lettres géantes 
sur la Planète Saturne de l'exercice précédent. 


FONCTIONS DE LECTURE 


Ces fonctions permettent au programme de prendre connaissance 
de tous les paramètres qui influencent l’affichage. De fait, le Basic de 
AMSTRAD ne possède que les fonctions XPOS et YPOS déjà vues et 
TEST qui permet de connaître l’état d’un point de l'écran. Pour 
prendre connaissance par programme des autres paramètres (ex. le 
mode d’affichage actuel), il faudra faire des PEEK aux adresses 
appropriées. 


TEST - TESTR 

Cette fonction est la plus importante : elle donne l’état d’un point 
de l'écran : 

TEST(X,Y) a pour résultat le numéro de lencre actuellement 
présente sur le point de coordonnées X,Y. En particulier, on obtient 0 


si le point est éteint. 


Un effet annexe de l’appel de la fonction TEST est d'amener le 
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curseur graphique en X,Y. Si vous voulez éviter cet effet, c’est-à-dire 
tester l’état d’un point tout en laissant le curseur graphique là où il 
est, il faut procéder par sauvegarde : XX=XPOS : YY=YPOS 
T=TEST(X,Y) : MOVE XX,YY. 


Il existe aussi la forme TESTR(DX,DY) qui déplace le curseur 
graphique de DX,DY et fournit l’état du point atteint. 


Autres fonctions 


Il peut sembler paradoxal d’avoir besoin de connaître, par exemple, 
le mode graphique actuel : le programmeur devrait le connaître 
puisque c’est lui qui l’a imposé et un programmeur organisé utilise une 
variable pour cela, faisant par exemple M= … : MODE M à chaque 
changement de mode. Mais il y a un cas où ce n’est pas possible : 
lorsque vous écrivez un sous-programme que vous voulez général, 
sachant que c’est le programme appelant qui peut changer les 
paramètres. 


Le Basic de l'AMSTRAD n’a pas de fonctions pour déterminer ces 
paramètres, mais vous pouvez les connaître par PEEK à certaines 
adresses, par exemple PEEK(&B1C8) donne le mode d'affichage, 0, 1 
ou 2. Voici quelques adresses : 


adresse 
664/6128 


Mode graphique 

Table des couleurs des encres (32 
octets : 2 pour chaque encre) 

Ligne curseur texte 

Colonne curseur texte 

Encre caractères 

Encre papier texte 

Abscisse de l’origine des coordonnées 
Ordonnée de l’origine des coordonnées 
Encre de tracé graphique 

Encre du papier graphique 

0=RAD / 255-DEG 
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Nous avons maintenant passé en revue les instructions graphiques 
élémentaires. Certaines d’entre elles sont très élaborées et très 
puissantes. Il nous reste à les appliquer. 


3.3 Tracé de courbes - remplissage - 


mélange avec du texte 


Bien entendu, l'AMSTRAD peut tracer toutes les courbes possibles 
et imaginables. Nous verrons au chapitre suivant le tracé de courbes 
définies mathématiquement par une équation. 


Ici, nous allons tracer une courbe définie par des données. 
Supposons que nous ayons les cours de deux actions pendant une 
dizaine d’années, de 1975 à 1985, trimestre par trimestre. Pour le 
premier trimestre 75, on a fait un changement d’échelle qui donne aux 
deux actions la valeur 100. Les cours sont dans des instructions DATA 
et on va tracer le diagramme en dents de scie correspondant. Voilà le 
programme : 


DIAGRAMME EN DENTS DE SCIE 
E 


1W MODE 1 : CLG 

20 READ A,E : A=2XxA : BeSxE 
59 X=9 : FOR I=i TO 4% 

48 XX=X+1Q : READ AA,BE 

SO AA=ZAAA : BB=EXEE 


68 FLOT X,A,i : DRAW XX,AA,1 
76 FLOT X,B,2 : DRAW XX,BE,® 

BA X=XX : A=AA : E<BE 

D NEXT 

102 END 

110 DATA 100,100,105,98,107,92,110,85 
120 DATA 11%,80,120,83,127,84,124,87 

120 DATA 1276,87,120,89,122,90,125,9% 

140 DATA 1:5,95,127,98,157,101,1%9,104 
150 DATA 142,107,148,110,144,111,142,112 
160 DATA 145,114,149,117,154,122,159,15S 
170 DATA 165,176,168,146,172,149,150,125 


GESTION 


180 DATA 120,126,121,126,122,128,154,129 
190 DATA 134,1%1,122,129,1%1,128,129.128 
200 DATA 130,129,125,153,128,1%7,140,1:9 
210 DATA 144,142,145,144,147,146,147,14% 


Comment mettre en évidence la différence entre les deux actions ? 
En colorant la zone comprise entre les deux courbes, bien sûr. 
Rajoutons 


95 MOVE 50,200:FILL I:MOVE 290,255:FILL 1 


Ce qu’il faudrait maintenant, c’est marquer les années. Vous avez 
tout ce qu’il faut pour le faire. 


Exercice 3.13 


Faites-le. Vous pouvez aussi graduer l’axe des Y et donner un titre 
au diagramme. 


3.4 Report sur imprimante 


Voici une fonction tout à fait nécessaire. En effet, c’est bien beau 
d’avoir un magnifique dessin sur lécran, mais il faut pouvoir en 
garder une copie durable pour les applications qui nécessitent de 
l’'examiner à loisir. Bien sûr, il y a la possibilité de stocker la mémoire 
d'écran sur disque, mais ce n’est pas vraiment l’image qui est 
conservée : c’est seulement une possibilité de la revoir. 


Donc la véritable copie durable, c’est la copie sur imprimante. Les 
imprimantes à matrice de points qui ont un mode graphique (c’est le 
cas des AMSTRAD) le permettent. Un problème supplémentaire est 
celui de la couleur : il y a bien sûr des imprimantes couleur, mais, de 
toutes façons la copie couleur serait trop longue à obtenir; en noir et 
blanc c’est déjà bien long. Pour un dessin en mode 2, il n’y a pas de 
problème : on fait la correspondance point allumé - point noir et fond 
- papier. En mode multicolore, on peut noircir tous les points colorés 
ou noircir seulement ceux d’une couleur; on peut même faire trois 
copies (à condition d’être patient!) : c’est ainsi que les imprimeurs 
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procèdent pour imprimer des pages en couleurs; il y a un film pour 
chaque couleur de base. 


Pourquoi le programme de copie est-il si lent ? C’est parce qu’il 
faut parcourir l’écran point par point et, pour chaque point décider si 
on noircit le point correspondant sur la page. On utilise la fonction 
TEST pour cela. La correspondance entre le balayage écran et le 
balayage imprimante dépend du modèle d’imprimante. Nous donnons 
une version valable pour la DMP 2000. 


Chaque colonne graphique se spécifie en envoyant CHRS(N), N 
étant calculé d’après le schéma : 


colonne poids 
points 0 64 
o 32 
o 16 
() 8 N=somme des poids des points 
(e] 4 à noircir 
0 2 
(e) l 


On va donc parcourir l’écran de gauche à droite et de bas en haut, 
parallèlement au balayage de l'imprimante suivant le schéma 
ci-dessous. 





Un programme effectuant une telle copie est fourni dans 


GESTION 


"Périphériques et fichiers sur AMSTRAD". Une copie prend une 
cinquantaine de minutes!! Nous donnons ci-dessous une version plus 
rapide. 


La première amélioration à proposer est de sauter les valeurs 
impaires de Ÿ puisque la résolution en Y est de 200 et non 400. Nous 
allons faire la même chose pour les X, pour une raison de conservation 
d'échelle entre les deux coordonnées : cela limite la déformation à 
environ 15%. Mais à ce moment, le sous-programme n’est plus valable 
en toute rigueur pour le mode 2 où il risque de perdre des pixels. 
Voici ce sous-programme, valable en toute rigueur pour les modes 0 et 
Le 


640000 REM Copie Ecran H-kR DMF 2000 mode 1 
&UBG1 REM 

60010 WIDTH 255 ss FRINTHB,CHRE C7) sCHRE#Æ (49): 6 
HECHRE CET) +CHRE (75) +CHRE (100) +CHRE (Q) 

680G:0 FOR X=Q TO 64:9 STEF 14 

EODEQ AF="" 3 2 FOR Y=0Q TO 2:99 STEF 

60D4Q N=Q : FOR I1=8 TO & 

80054 NEN- CET) + CTEST CX+LE-I-I,v)< #0) 

BBQ NEXT 2 AF=AF+CHRE (N) 

6007Q NEXT 

E00SD FRINTHO,GS3: LEFTEÆ CAE, 100) :GÆ: RIGHIE CAE, 1 
Qi) 

608090 NEXT 

68100 FRINTHS,CHKE (15) 

éB1LID RETURN 


On obtient une copie en faisant GOSUB 60000. 


On reconnaît en 60010 l'initialisation de l’imprimante à l’interligne 
7/72è de pouce et la préparation de la chaîne G$ qui signifie "passage 
en mode graphique pour les 100 prochaines colonnes élémentaires". En 
60020, boucle sur les X, avec STEP 14=7 points élémentaires * 2 
puisqu'on saute un X sur 2. 


En 60030, préparation de la chaîne A$ qui contiendra les données 
graphiques et boucle sur les YŸ. En 60040, préparation de la colonne 
élémentaire N et boucle sur les aiguilles. C’est en 60050 que tout se 
joue avec l’examen par TEST de l’état de chaque point élémentaire. En 
60080, envoi de la chaîne graphique A$. Cela se fait en deux fois, car 
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on ne peut spécifier une valeur 200 (=nb. de caractères de A$) avec 
l'interface imprimante de l'AMSTRAD qui n’a que 7 bits. On partage 
donc la chaîne A$ en deux. 


L’exécution prend environ 14 minutes. Le seul moyen véritable 
d’accélérer est de passer au langage machine. Si votre page écran n’est 
pas pleine, vous pouvez essayer de diminuer le 639 en 60020, le 3999 
en 60030 et le 100 en 60010 et 60080 pour ne pas parcourir tout 
l'écran, vous pouvez d’ailleurs paramètrer ces quantités. 


Exercice 3.14 


Que faire pour que ce programme ne perde pas de pixels en mode 
2? 


La version qui suit est réservée aux modes 0 et 1. Elle fait un grisé 
différent pour les numéros d’encre 0, I(noir complet), 2 (gris foncé) et 
3 et plus (gris clair). On procède ainsi : lorsque pour un groupe de 7 
aiguilles c’est la première fois qu’on rencontre un pixel d’encre 2 ou 3 
et plus, on noircit (cela assure de toujours noircir à une frontière). Si 
ce n’est pas la première fois, on noircit avec la probabilité 75% pour 
l'encre 2 et avec la probabilité 55% pour l’encre 3 ou plus. Les calculs 
de probabilité sont effectués dans le sous-programme 61000 et les 
variables A2 et A3 mémorisent l’arrivée pour la première fois ou non 
dans une couleur. On a aussi utilisé la variable K pour éviter les 
calculs de 2”, ce qui gagne un peu de temps. 


Ci-dessous, le résultat du programme pour la cocarde obtenue par 
les instructions 10 à 50 puis le sous-programme de copie avec grisés. 
60000 RKEM Copie Ecran H-KR DMF 2000 mode i avec 
grises 
60001 REM 
60010 WIDTH 255 :FRINTHB,CHRE (27) :CHR#(49): G#=C 
HRE (27) +CHRE (75) +CHRE (100) +CHKE (D) 

60020 FOR X=0 TO 479 STEF 14 

6000 Af="" : : FOR Y=Q TO 599 STEF 2 

60040 AZ=Q : AZ=Q : Kzi : N=Q : FOR 150 TO 4 
60045 T=TEST(X+12-I-I1,Y) 

60050 GOSUE 41000 

60055 NEN+KEU 2 E=KE+E 
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60060 
68070 
CIM EST) 
60090 
68100 
64110 
61000 
61810 
61020 
61030 
61040 
61050 
61060 


10 NE= 


200 


20 R=S 


GESTION 


NEXT 2: AF=A#F+CHRE (N) 
NEXT 
FRINTÉS,G#:LEFTS(A€,100) :GF: RIGHT#(A#, 100) 
NEXT 
FRINTH#G,CHR# (15) 
RETURN 
REM  CALCULS DE GRISES 

IF TÉZ THEN U=T : AZ=0Q : A3=0Q : RETURN 
IF T=2 60T0 41050 
A2=0 : IF A3=0 THEN A3=1 : U=1 : RETURN 
U=- (RND(1)20.535) : RETURN 

3=0Q 2: IF AZ=0 THEN AZ=i : Uz=i : RETURN 
U:=-— (RND (120.75) : RETURN 


1: DEG: AD=0: AF=360: AR=Q: IA=Z: Fais: XC=200: YC= 


G:CLG:GOSUR 20000: MOVE XC,YC:FILL i 


20 R=108:GOSUER 20000:MOVE XC+60,YC:FILL 2 
40 R=iS0:GOSUB 20008: MOVE XC+110,YC:FILL 3 


50 END 
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3.5 Applications 


Nous avons maintenant tout ce qu’il faut pour traiter les 
principales applications de gestion. Celles-ci consistent pour la plupart 
à tracer des diagrammes en bâtons ou en camemberts représentatifs 
d’une série de données. Il y a aussi les diagrammes en étoile. Nous 
commençons par eux car ce sont les plus simples. 


Un diagramme en étoile est utilisé le plus souvent pour dessiner le 
profil d’un individu en fonction d’un certain nombre de qualités. A 
chaque qualité on attribue une direction dans le plan et l'individu 
concerné à un certain nombre de points relatifs à cette qualité. On 
dessinera un sommet dans la direction considérée, d’autant plus éloigné 
que l'individu possède plus fortement cette qualité. On obtient alors un 
polygone assez régulier si l’individu a des qualités équilibrées. Si 
l'individu a une lacune sur une qualité, il y a un angle rentrant; il y a 
une pointe s’il est extraordinaire dans un domaine. 


Exemple 


Essayez le programme suivant : 


1 REM DIAGRAMME EN ETOILE 

2 REM 

10 ORIGIN 200,200:CLG: TAG: RAD 

20 KREAD NE,N:A=2#FI/N 

30 FOR I1=0 TO N-i 

40 READ X# 

50 X=-20+100*xC0S(IxkA) : V=IOOxSINCI#A) 

60 MOVE X,Y:PFRINT STR#(I+1);: 

7Q MOVE 160,150-20xI:PFRINT STR#(I+1)5"  "sX#: 


8Q NEXT 

90 READ R: XA=R: YA=Q 

100 FOR I=i TO N 

110 FLOT @,@:DRAW XA,YA 

120 READ R: X=R#COS (IA) : Y=RYGSINCI#A) 
120 DRAW X,Y 

14@ XA=X:YA=Y : NEXT 


68 


GESTION 


150 MOVE -50,-150:FRINT N#:s 
186@0 END 
200 DATA ALFRED,S 
210 DATA INTELLIGENCE, AUTORITE, COURAGE 
220 DATA ADRESSE, CALME 
250 DATA 45,:0,80,72,24,85 

On voit que l'individu Alfred manque d’autorité et de calme, ce 
qui est un handicap pour commander. Le programme ci-dessus est 
parfaitement général : il suffit de fournir les DATA convenables soit 
le nom de l'individu et le nombre N de qualités à envisager, puis les N 
libellés des qualités et enfin les valeurs. Les valeurs doivent être mises 
à l’échelle pour couvrir l’intervalle O à 90 et la première valeur doit 
être répétée à la fin pour que le polygone soit fermé. 


Exercice 3.15 


Ce programme marche très bien aussi pour visualiser des résultats 
scolaires. Quelles sont les données à fournir pour les résultats suivants : 


mathématiques 15 
physique 18 
chimie 16 
sciences nat 14 
français 9 

philosophie 13 
hist-géo 11 


3.6 Diagrammes en bâtons 


Improprement appelés histogrammes (ce terme a en fait un sens 
bien spécial en Statistique), ces diagrammes permettent de représenter 
un certain nombre de données sous forme de rectangles de hauteurs 
proportionnelles aux valeurs. Les pyramides des âges sont une variante 
de ce type de diagrammes. 


On peut dessiner des rectangles à plat et alors le sous-programme 


10000 vu ci-dessus est bien adapté. On peut faire des rectangles de 
couleurs différentes ou non, pleins ou non. On peut aussi faire des 
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parallélépipèdes en perspective. On peut aussi utiliser deux couleurs 
pour représenter deux séries de données en parallèle. 


Le programme ci-dessous lit une série de données en DATA et il 
les représente sous forme perspective. Les données sont mises à 
l'échelle afin d’être inférieures à 200. La première valeur lue est le 
nombre de données. 


1 REM DIAGRAMME EN BATONS 

2 REM 

18 MODE 1:CLG: TAG 

20 READ N:X1=16:V1-100:Y4=11é6 

30 FOR I=i TON 

40 READ D: X2=X1+16: X3=X1+52 

SO Ve=YitD:YZz=Y2+16 

68 FLOT X1,Y1,1:DRAW X2,Y1:DRAW X2,Y2:DRAW X1,VE 


7@ DRAW X1,Y1:DRAW X1,Y2:DRAW X2,V2:DRAW X3,YZ 
BQ DRAW X2,Y2:DRAN X3,Y3:DRAW X5,Y4:DRAW XE,Yi 
9Q MOVE X1-B,B0:PRINT STR#(L): 

190 XIi=X1+48 

119 NEXT 

120 DATA 10,50,64,110,180,134,160,150,90,74,4® 


Exercice 3.16 


Graduer l’axe vertical. 


Exercice 3.17 


Une série de données qui vont 2 par 2 représente la consommation 
d'énergie en 1970, 1975, 1980 et 1985, respectivement sous forme 
pétrolière et sous forme non pétrolière. Représentez ces données sous 
forme de doubles bâtons : un bâton bleu pour l’énergie pétrolière, un 
bâton rouge pour l’autre. 


3.7 Diagrammes camemberts 


Ces diagrammes, que vous pouvez aussi appeler "parts de gâteau" si 
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vous préférez les pâtisseries, servent à représenter une répartition ou 
des pourcentages. Le total sera représenté par un cercle complet et 
chaque donnée est un pourcentage de ce total : elle sera représentée 
par un secteur de ce cercle d’angle proportionnel à sa valeur. Les 
secteurs seront en principe colorés de différentes couleurs. 


Le programme suivant n’est pas très différent de celui du 
diagramme en étoile. Il est très général puisqu'il suffit de changer les 
DATA pour traiter n’importe quel problème. 


1 REM DIAGRAMME CAMEMBERT 
2 REM 

5 DEF FNX (A) =200+108*%C0S (A) 

7 DEF FNY(A)=200+100#SIN (A) 

10 MODE 1: TAG: RAD:F=1: XC= 200: YC=200 
15 R=100:NE= 1: AR=Q 

20 READ NE,N:AX=FI/180: LA=Z#AX: AE. 6 
25 DIM AD(N+1) ,AF CN) : AD(1)=ù 

30 FOR I=1 TON 

49 READ X#,AN 

45 AF CI) =AD (1) +ANXAEXAX 2 AD € I+1) =AF (1) 


JÙ X=1804+128xC0S (A) 

OÙ Y=<0G+120xSIN CA) 

78 FLÜT X,Y,1:FRINT STRÆCL)s 

75 FLOT 350,590-20%I: PRINT STRECIDs" "si XxEs 
80 NEXT 

90 C=l 


100 FOR II=1 TO N 
105 AD=AD(II)S AF=AF (II) :5S0SUR 20V0W 


119 X1=FNX CAD (LI) ) 2 X2=F NX (AF CL L)) 

115 Y1=FNY CAD CII) ) 2 Y2=FNY CAE CL LD) ) 

120 FLOT 300,200:DRAW X1,Y1 :FLOI 200,00: DRAW X 
2,V2 

125 IF LISEN THEN MOVE (XX) 2, CY14Y) / 226 ILL 
Ë 

150 CeC+i:1iF C=d THEN Ci 

14Q NEXT 

150 FLOT 150,50,1:FPRINT N#; 

160 END 
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200 DATA DEFENSES ,6 

210 DATA LOGEMENT, 20,NOURRITURE, 28 
220 DATA VOITURE,10,HABILLEMENT, 15 
220 DATA LOISIRS,12,DIVERS,15 


LOGEMENT 
HOURRITURE 
UOITURE 
HABILLEMENT 
LOISIRS 
DIVERS 


Era €) fa Li F5 be 





DEPENSES 


Ce programme utilise FILL. Sur 464, vous devrez l’adapter en vous 
inspirant de l’exercice 3.9. 


Parmi les variantes possibles, on peut excentrer une part pour la 
mettre en évidence, on peut laisser les parts non colorées (nous l’avons 
fait pour le "divers" ci-dessus), on peut hachurer les parts. Un dessin 
un peu plus difficile est de représenter le gâteau comme un cylindre 
plat vu en perspective. 
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GRAPHIQUES HAUTE RESOLUTION 
ARTS ET SCIENCES 


Voici le chapitre des belles courbes, que leur beauté procède de la 
froide beauté des mathématiques ou de l'émotion artistique. Nous 
n’apprendrons pas d’instructions nouvelles dans ce chapitre, mais nous 
emploirons celles du chapitre précédent pour mettre en oeuvre des 
méthodes sophistiquées d’expression graphique comme celles qui sont 
nécessaires au dessin 3 dimensions (Ex. parties cachées). 


4.1 Les systèmes de coordonnées 


Ce terme recouvre en fait deux problèmes. Il y a d’abord un 
problème géométrique : le choix d’une représentation d’un point dans 
le plan ou l’espace. Ce choix revient à choisir entre coordonnées 
cartésiennes (X,Y ou X,Y,Z dans l’espace) et coordonnées polaires 
(dans le plan, un point est défini par l’angle @ qui détermine la 
direction de la droite qui le relie à l’origine et par sa distance R à 
l'origine). Dans l’espace, on parle de coordonnées sphériques, la 
direction étant définie par deux angles. 


Les coordonnées cartésiennes sont plus souvent utilisées pour trois 
raisons : 


- les coordonnées polaires ne sont utiles que lorsque la symétrie 


particulière du problème à traiter rend les équations plus simples 
en coordonnées polaires 
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- ayant les coordonnées polaires, on a immédiatement les 
coordonnées cartésiennes. Supposant l’axe des YŸ orienté de bas en 
haut (c’est l'habitude de l'AMSTRAD) et l’origine des angles étant 
l'horizontale de gauche à droite, on a : 


X=R*COS(TETA) 
Y=R*SIN(TETA) 


- les instructions graphiques de l’'AMSTRAD ou des autres 
ordinateurs s'expriment en coordonnées cartésiennes. 


On emploie parfois des coordonnées cartésiennes homogènes qui 
consistent à ajouter une 4è coordonnée W (dans l’espace : dans le plan, 
W est la 3è). Le point X,Y,Z a pour coordonnées homogènes X,Y,Z.1 
ou tout quadruplet proportionnel. Les coordonnées homogènes ont 
l'avantage de traiter facilement les translations sous forme matricielle 
et de permettre de considérer le point à l'infini. 


Le second problème est un simple problème d’unités sur les axes 
(coordonnées cartésiennes). On a déjà vu les plages de variation des 
coordonnées sur l'écran graphique : X de 0 à 639 et Y de O0 à 399. Il 
s’agit là de coordonnées "machine" ou "objet". Mais vous pouvez aussi 
travailler en coordonnées "sujet", c’est-à-dire en coordonnées 
exprimées dans les unités adaptées à votre problème. Vous pouvez 
aussi rester en coordonnées "objet" et employer à chaque fois la 
formule de transformation de coordonnées adéquate. 


On emploie souvent cette dernière technique car les coordonnées 
objet sont les seules qui conservent l’isotropie du plan de l’écran et 
donc permettent de gérer avec sûreté des distances et des angles. 


4.2 Tracé de courbes dans le plan 


Une courbe peut être définie soit par son équation Y=F(X) soit par 
un couple d'équations paramètriques X=FI(T) 
Y=F2(T) 


Il y a deux tracés possibles : point par point, mais la courbe 


résultante peut s’avérer trop pointillée, ou par petits segments. Les 
deux programmes ci-dessous tracent une courbe Y=F(X) ou une 
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courbe paramétrique. Leur particularité est que l’on fournit au dernier 
moment, sous instructions imprimées par la première partie du 
programme, la (les) fonction(s) concernées en tapant les instructions 
DEF FN nécessaires puis GOTO l'instruction de suite du programme. 


1 REM TRACE DE COURBE Y=F (X) 
2 REM 


5 FRINT “Four entrer la fonction a tracer" 


4 FRINT "tapez 19 DEF FNFCX)e votre fonction Ket 
ur!" 

5 FRINT "puis GOT 19 Keturn'" 

ä END 

19 DEF FNF(CX)=EXF (X) 

20 INPUT CBORNES ,T/FOS XI XETE 

ED He CXE-X1) /E0: XX=-E 

A8 CLG:PFLOT W,FNFCXK1) ,1 

54 FOR XexX1i TO XE STEF H 

EG XX=XX THE 

7 YEFNF CX) 

89 IF T#t="FP" THEN FLOT XX.,Y ELSE DRAW XX, T 
90 NEXT 


1 REM TRACE DE COURBE FARAMETRIQUE 

& REM 

5 FRINT "Four entrer Les fonctions a tracer" 

4 FRINT "tapez 19 DEF FNFCD)# votre lere fonctio 
: DEF FNGCTD)= votre Ze fonction Return" 

5 FRINT puis GOTO 14 Keturrn" 

ë END 

19 DEF FNF CT) =200+10DxC0S CT) +: DEF FNG(T)=#00+10 

DxSIN CT) 

20 INFUT "EÉORNES,T/FMS TA TESTE 

ED H=CTE-T1) /520 

48 CLG:PLOT FNEF CTI) ,FNGCTID TI 

50 FOR TeTi TO TE STEF H 

& X=FMNF CT) 








89 IF T#="F" THEN FLOT X,Y ELSE DKAW X,Y 
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Ces programmes prennent systématiquement 300 points, mais vous 
pouvez changer ce paramètre. Ils n’ont aucune mise à l’échelle, ce qui 
suppose que les formules données pour les fonctions soient adaptées en 
conséquence. Les exercices suivants suppriment cet inconvénient. 
Ensuite, les programmes vous demandent d’entrer les bornes de 
variation de X ou de T et une lettre T ou P selon que vous désirez un 
tracé continu ou pointillé. 


Exercice 4.1 

Ramener à l'échelle une courbe fournie sous la forme Y=F(X). Il 
faut ramener à 0-600 l'intervalle X1-X2 et calculer le maximum et le 
minimum de Ÿ pour ramener à 0-400 leur intervalle. 
Exercice 4.2 

Faire de même pour une courbe paramètrique. Faire attention à 
conserver l’isotropie. 
Exercice 4.3 

Il faut aussi dessiner et graduer les axes. 

Ces programmes donnent une bonne idée de l’allure d’une courbe. 
Il peut être utile de joindre à ces programmes le sous-programme de 
copie sur imprimante que nous avons vu précédemment. Un cas 
particulier de courbe paramètrique est : 


X=XC+R*COS(T) 
Y=YC+R*SIN(T) 


Le résultat n’est autre qu’un cercle. Nous avons plus simple pour le 
tracer, mais pas en pointillé. 


Exercice 4.4 


Quoi de plus simple pour tracer un cercle ? 
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Paramétrisation de la fonction à tracer 


Les programmes que nous avons fournis permettent une certaine 
paramètrisation de la fonction à tracer puisque l'utilisateur tape 
celle-ci au dernier moment. Le procédé n’est toutefois pas très 
pratique puisqu'il faut taper l'instruction DEF FN complète et un 
GOTO 10 pour faire redémarrer le programme. 


Nous donnons ci-dessous une autre version des premières 
instructions du programme pour les courbes Y=F(X) (l’adaptation aux 
courbes paramétriques est facile). Dans cette version, vous fournissez 
uniquement la fonction sous forme d’une chaîne de caractères et le 
programme implante lui-même le DEF FN. Pour cela, il écrit 
lPinstruction sur un petit fichier ASCII et il fusionne ce fichier avec le 
programme à l’aide de CHAIN MERGE. Pour des détails sur cette 
instruction, voyez "Périphériques et fichiers sur AMSTRAD". 
L'utilisation est bien sûr plus commode sur disque que sur cassette (qui 
nécessite un rembobinage). 


INFUT "Fonction a tracer":;F# 
OFENQUT “20720 

FRINT#9,"1Q DEF FNFCX)="+F# 
CLOSEOUT 

CHAIN MERGE “"ZOZ0",1Q 


NT CHE 


Familles de courbes 

Une modification très simple des programmes ci-dessus permettrait 
de tracer plusieurs courbes sans effacer l'écran entre deux tracés. On 
pourrait donc avoir une famille de courbes. 
Exercice 4.5 

Faites la modification voulue. 

Nous allons examiner quelques exemples de courbes et de familles 
de courbes dont l'intérêt esthétique et mathématique ne vous décevra 


pas. 


Nous commençons par une série de sinusoïdes déduites l’une de 
l’autre par translation. 
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SINUSOTDES 


1 REM 


REM 


Lis 
-) 


TO 400 STEF 80 


FOR YO=0 


10 


20 DEF FNFCX)=V@+1B80XxSIN(FI#X/64) 


se 


X,FNF(X) ,i 


=Q: FLOT 


=Ù 


ca 


:@ X 


TO 829 2: Y=FNF CX) 


Pi] 


SO DRAW X,Y 


40 FOR X 





6@ NEXT 
7@ NEXT 


On remarque qu’il n’y a aucune précaution particulière pour les 


points qui sont hors de l'écran : 
Cela s'appelle le "fenêtrage" : 


ils ne sont simplement pas dessinés. 
l'écran n’est qu’une fenêtre sur un espace 


plus vaste et l'AMSTRAD s’en occupe automatiquement. 


on passe d’une courbe à l'autre par 


l'exemple suivant, 
affinité. Voici une série de gaussiennes : 


Dans 
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GAUSSGS IENNES 


1 REM 


REM 
CLG 
19 FOR 


es 
de 
= 
sd 


2G)"2/12800) 


“Er 
te 


CHEXF (— CX—: 


G:FLOT X,FNF(X) ,1 


[Es 


E=0 TO 400 STEF 


20 DEF FNF(X) 


" 
Fou 


30 X 


Y=FNE CX) 


CE 


QG TO 429 STEF 


90 DRAW X,Y 
6 NEXT 
78 NEXT 


40 FOR *X 





Courbes polaires 


Voici quelques courbes en coordonnées polaires. En prenant l’angle 
comme paramètre, on a immédiatement les coordonnées paramètriques. 


Les fonctions de la forme R 


COS ou SIN(A*T/B) avec A et B 


premiers entre eux donnent des courbes assez spectaculaires lorsque T 


varie de O0 à 2*B*PI. 


résultats 


les 


suivant 


Lorsqu'on ajoute un terme constant, C, 


Le programme 


spectaculaires. 


demande A,B et C à l’utilisateur. Essayez diverses combinaisons. 


sont encore plus 
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i REM COURBES FOLAIRES R=(COS (A#T/B) +0) / (1+C) 
2 REM 

S CLG 

1@ INPUT "A,B,C":A,E,C 

20 DEF FNF(T) = (COS (A#T/B) +0) / (1+C) 

20 DEF FNG(T)=220+180%xFNF (T) *COS CT) 

40 DEF FNH(T)=200+180%FNF (T) #SIN CT) 

S5Q CLS 

6Q FRINT "A=";A 

70 PRINT "B=":B 

80 PRINT "C=";0 

9Q T=0:X=FNG(T): Y=FNHCT) 2: FLOT X,Y,i 

100 FOR T=FI/:0 TO 2xRxPI+FI/20 STEF FI1/30 
118 X=FNG CT) : Y=FNH CT) 

120 DRAW X,Y 

14Q NEXT 
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ID 
(LL 

[os TA 
Cox] 





Tracés en rayons 


Un dessin spectaculaire s’obtient en traçant non pas la courbe mais 
les rayons qui joignent le centre aux points de la courbe. Il vaut 
mieux, cette fois prendre B=1. Il s’ajoute le paramètre N, 
demi-nombre de rayons à tracer. 


1 REM  COURBES POLAIRES RAYONS 

2 REM 

9 CLG 

19 INPUT "A,B,C,N'"':A,B,C.N 

2Q DEF FNF(T)=(COS (A*xT/B) +0) /(1+0C) 
20 DEF FNG(T)=3520+180%xFNF (T) #COS CT) 
40 DEF FNH(T)=200+180%xFNF (CT) #SIN(T) 
50 CLS 

6Q FRINT "A="3;A 

7Q FRINT "B=";:B 

80 FRINT "C=";cC 

90 FRINT "N="sN 

100 FOR T=Q TO Z2xE*FI+PI/N STEP FI/N 
119 X=FNG(T): Y=FNH(T) 

120 PLOT 2:20,200,1:DRAW X,Y 

140 NEXT 
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+ 
-© 
eh [us [tp] 


LR 
TAUZ 


Era 
de) 
Feed QE 


RIRE 
TAUZ 
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Cycloïdes 


Les épicycloïdes et hypocycloïdes ont des aspects assez semblables. 
Elles sont engendrées par un point d’un cercle de rayon R2 qui roule 
sans glisser sur un cercle de rayon R1. Leur équation générale est : 


x=(R1+R2)cost -R2cos((R1+R2)t/R2) 
y=(RI+R2)}sint -R2sin((R1+R2)t/R2) 


(R2<0 si hypocycloïde, >0 si épicycloïde) 


Le programme suivant demande les rayons (prenez des entiers pas 
trop grands et donnez R2 <0 pour une hypocycloïde). Les instructions 
80 à 85 calculent combien de tours doivent être accomplis pour que la 
courbe se referme (on limite à 20). 


1 REM HYFO ET EFICYCLOIDES 

2 REM 

19 INFUT "RI,R2 "SRI, RE: RRER1+R2: RT=R1-Z4RDX (R2:0 
) 

20 DEF FNF(T)=RR#COS (T) -R2XxCOS (RRXT/R2) 

25 DEF FNECT)=RRSINC(T)-R2XSIN(RRET/R2) 

30 DEF FNG(T)=220+180%FNF (T) /RT 

40 DEF FNH(T) =200+180*FNE CT) /RT 

SO CLS 

68 FRINT "Ri=":R1 

7Q FRINT "R?=";R? 

80 G=R1/ABS(R2Z):FOR E=1 TO 20 

85 IF BXxO=INT(EXQ) THEN 90 

85 NEXT 

90 T=Q:X=FNG(T): Y=FNHCT)2:FLOT X,Y,1 

100 FOR T=FI/20 TO 2*xB*xPI+FI/2Q STEF FI/:0 
119 X=FNG(T) : Y=FNH(T) 

120 DRAW X,Y 

140 NEXT 
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Lun 
ae: 


it 
RÉ 


LS 





> à a Un, 


si ne * 


f- 


Er 


1. 


ñ 
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Courbes de Lissajous 


Nous retrouverons des napperons un peu plus loin. En attendant, 
nous voyons les courbes de Lissajous qui fournissent des formes très 
variées. Leurs équations paramètriques sont de la forme: 

x=sinat 

y=sinct 


La diversité des formes vient de la diversité des rapports entre a et c. 
En fait, nous allons étudier des courbes plus générales de la forme: 
x=sinat*sinbt 
y=sinct*sindt 

qui se réduisent à la forme de Lissajous si l’on fournit b et d nuls. 


Aussi, si l’on fournit a,b,c ou d négatif, le système prendra la fonction 
cosinus au lieu de sinus. 
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1 REM LISSAJOUS ET ANALOGUES 


2 REM 

1Q INFUT “A,B,C,D":A,B,C,D 

20 DEF FNF(T)=SIN(AXT+AA) # (SIN (B#T+BB) — (B=0) ) 
25 DEF FNE(CT)=SIN(C#T+CC) x (SIN (DxT+DD) — (D=@) ) 
Z2Q DEF FNG(T)=220+180%FNF CT) 

40 DEF FNH(T)=200+180%FNE (T) 

5Q CLS 

6Q FRINT “A=":A 

65 FRINT “E=":;E 

7Q PRINT "C=":cC 

75 FRINT "D=";D 

89 IF A‘Q THEN A=-A:AA=-FI/2 

82 IF B<Q THEN B=-B:BB=-F1/27 

84 IF C<Q THEN C=-C:CC=-FI/2? 

86 IF D“@ THEN D=-D:DD=-F1/2 

90 T=Q: X=FNG(T) 2: Y=FNHCT)2:PLOT X,Y,1 


100 FOR T=F1/90 TO 2*xF1+F1/90 
118 X=FNG CT) : Y=FNH CT) 
12Q DRAW X,Y 


STEF F1/90 


140 NEXT 
Ê= ë su #1 PEN ÿ F \{ 
_ ñ j \ f \ f , f à 4 \ / \ # L j | 
5 6 | | | H 1 ; ÿ ' ! / ! Ë ni 1 | 
| | fl À À | | } | 
| | F1 JL 1 fi if jl f. | 
LAPS dE ASE 
| | | | | | | | ! | | Î | | | | 
Heu Lee FT pal 
RAA UE 6 UE AN || 
| I | 
Do che fe | 
| | li fl ll il l }i | 
l | | Ï | | l | | | l | | | 
} Î l Ï | î | Î Ï | 
| ATRTRTRTRIR IE | 
AE 
A AU at: SE CA hi | 
il | ! Î 1 Î 1 Î LS À 1 Î k j ! | il | 
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ñ= 7 
B=-£i 
Ge 7 
D= 6 
Napperons 


Les napperons s’obtiennent en considérant les sommets d’un 
polygone régulier inscrit dans un cercle et en reliant chaque sommet à 
tous les autres. Le programme demande le nombre de sommets. 


1 REM  NAFFERON 

2 RENM 

10 INFUT "NE DE SOMMETS'"3;N 
20 DEF FNF(T)=:20+180+C0S(T) 
20 DEF FNG(T)=200+1S8G0xSINCT) 
4Q D=2xFI/N 

3@ CLS 

60 FRINT "N=E"SN 

90 FOR TA=O TO 2xFI STEF D 
100 XA=FNF (TA) : YA=FNG (TA) 
110 FOR T=TA+D TO ZxFI STEF D 
12 X=FNF CT): Y=FNG (TT) 

150 FLOT XA,YA: DRAW X,Y 

14Q NEXT:NEXT 
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N= 88 
à 
sl 
Enveloppes 


Dans l'exemple précédent, on voit se dessiner des cercles 
concentriques : ils ne sont pas dessinés intentionnellement, ils se 
dessinent parce qu’il y a un ensemble de droites qui leur sont 
tangentes. Ces cercles sont les enveloppes de ces droites et souvent, 
lorsqu'on dessine une famille de droites, leur enveloppe peut 
apparaître. Nous allons en voir quelques exemples du plus bel effet. 


Commençons par des cordes de cercles. On trace la corde qui relie 
le point d’angle T au point d'angle N*T, pour toutes les valeurs de T 
de O0 à 2*PI par pas de PI. La figure obtenue s'appelle "bolygone" 
d'ordre N. Le programme demande l’ordre à l’utilisateur. Vous pouvez 
donner un ordre non entier, auquel cas le programme fera plusieurs 
tours pour que la courbe se referme (voir instructions 80-85). Voyez 
aussi l’instruction 40 qui calcule le pas en fonction de l’ordre. 
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EM  BOLYGONES 
EM 


INFUT "ORDRE": N 
DEF FNF(T)=5:20+180xC0S (T) 
DEF FNGIT)=200+184xSINCT) 
D=2*xFI/ (40xN) 
CLS 
FRINT MNEMSN 
FOR B=i TO 1@ 
IF BxN=INT(B#N) THEN 90 
NEXT 
FOR TA=0 TO 2*FI*xEB STEF D 
XA=FNEF (TA) : YVA=FNG (TA) 
TENXTA 
X=FNF (CT) 2: Y=FNG (CT) 
FLOT XA,YA:DRAW X,Y 
NEXT 


= 
1 
Æ 


RTS 
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N=z i,5 





Polygones spiralés 


Notre prochaine famille est celle des polygones en spirale. On passe 
d'un côté au suivant en tournant d’un angle T et en multipliant la 
longueur par U (<1). Ces paramètres sont fournis par l'utilisateur ainsi 
que N, le nombre de segments à dessiner. Le programme commence 
par déterminer le segment de départ en fonction de l’angle T. 
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1 REM FOLYGONES SFIRALES 

2 REM 

10 INFUT "ANGLE ,U,N":T,U,N 

20 TR=T*F1/180 

30 X=520-1B0XSINCTR/2) : Y=200-180*C0S (TR/2) 
40 L=P*1BD*SIN(TR/2) : XA=X+L: YA=Y 
50 CLS 

69 FRINT "T="sT 

70 FRINT "U=";U 

75 FRINT "NE" N 

80 FLOT X,Y,1:DRAW XA, YA: X=XA 

90 FOR E=1i TO N 

108 L=U%xL. 

110 X=X+LXCOS CHKTR) : Y=Y+LASIN(HETR) 
120 DRAW X,Y 


150 NEXT 
T= 71 
Uz 6.98 
N= 88 
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Polygones en diaphragme 


Pour les polygones en diaphragme, on part d’un polygone régulier 
Gl pourrait ne pas l’être) de N côtés. On passe d’un polygone au 
suivant de la manière que voici : chaque nouveau sommet -X- est sur 
le côté formé par deux anciens -soit À et B- de sorte que X divise 
AB dans un rapport fixe R. On obtient une apparence de rotation qui 
donne une forme analogue à celle des diaphragmes d’appareils photo. 
On choisit aussi le nombre P de polygones à tracer. 


Les coordonnées des sommets sont dans deux tableaux, X et Y 
dimensionnés à N+1 : X(N+1) est la copie de X(1) utilisée parce que 
pour calculer le nouvel X(N) on a besoin de l’ancien X(1) et que 
celui-ci est déjà modifié. 


1 REM FOLYGONES EN DIAFHRAGME 

2 REM 

1Q INPUT CN,R,F'EN RE 

20 DIM X(N+1) ,Y(N+1) 

20 DEF FNF(T)=320+180*C0S (T) 

40 DEF FNG(T)=200+1B80XxSIN CT) 

SO FOR I1=i TO N:T=2xPFI#(I-1)/N 

68 XCI)=FNF CT): Y CL) =FNGCTI:NEXT 

7@ X(N+1)=X (1): Y (N+1)=Y (1) 

80 CLS 

9 FRINT "N="sN 

100 FRINT "R=":R 

110 PRINT "F="sF 

120 GOSUB 200 : REM TRACE FOLYGONE 
120 FOR E=1i TO F : FOR I=i TON 
148 XCI)=XCI)+(X(I+1)-XCI))/R 

15 YCI)=YCI)+CYCI+1)-Y CID) /R : NEXT 
160 X(N+1)=X (1): Y (N+1)=Y (1) 

170 GOSUE 200 : REM TRACE FOLYGONE 
180 NEXT 

199 END 

200 FLOT X(1),Y(1),1: FOR I=2 TO N+i 
210 DRAW X(CI),Y(I):NEXT: RETURN 
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L’enveloppe qui se dessine est une spirale logarithmique. 
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Exercice 4.6 


Comment changer le sens de la rotation apparente ? 


Apparence 3-d 


Soit maintenant un polygone régulier d’ordre N pair. On applique 
le traitement qui précède à chaque triangle isoscèle formé par le centre 
et un côté, à ceci près qu’on alterne le sens de rotation. On obtient des 
résultats saisissants qui ont l’apparence d’être en trois dimensions. 


1 REM AFFARENCE 3 D 

2 REM 

19 INFUT CN,R,FP'EN RP :NB=N/2 

20 DIM X(4),Y(4) 

20 DEF FNF(T)=520+180*+C08 (T) 

4Q DEF FNG(T)=200+18GXxSIN(T) 

SG CLS 

68 FRINT "N="iN 

70 FRINT "Rz'iR 

8Q FRINT "F=":e 

90 FOR J=i TO Ne: TA=24F 1x (J-1) /NE 

108 X(1)=220: Y (1) =2QU: X (4) =520: Y (4) =200Q 
110 XC2)=FNF (TA) : Y (2) =ENG (TA) 

120 TB=TA-24FI/N: X C5) =FNF (TE) 2 Y C5) =ENG (TE) 
1:50 GOSUR 200 : REM TRACE D'UNE SERIE 
140 X(1)=320: Y (1) =200: X (4) =220: Y (4) =700 
150 X (2) =FNF (TA) : Y (2) =FNG (TA) 

160 TE=TA+2XFI/N: X C5) =FNE (TE) 2 Ÿ C5) =FNG(TE) 
170 GOSUB 300 : REM TRACE D'UNE SERIE 
NEXT 

END 

FLOT X(1),Y(1),1:FOR I1=2 TO 4 

DRAW XCI) ,Y(I):NEXT: RETURN 

GOSUE 200 : REM TRACE FOLYGONE 

FOR E=1i TO F 

FOR I=i TO 3 
XCI)=X(I)+(XCI+1)-X(CI1))/R 
YCI)=YCI)+CYCI+1)-YCI)D)/R : NEXT 
X(4)=X(1):Y(4)=Y(1) 

GOSUE 200 : REM TRACE FOLYGONE 

NEXT =: RETURN 
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Polygones aléatoires 


Nous pouvons appliquer le même traitement à un polygone de 
départ dont les coordonnées ont été "tirées au hasard" grâce à la 
fonction RND. C’est ce que fait le programme suivant qui demande à 
l'utilisateur le nombre de côtés N, le rapport de réduction R et le 
nombre de pas à effectuer P. 


1 REM FOLYGONES ALEATOIRES 

2 REM 

19 INFUT ON,R,P'EiNR,F 

20 DIM X(N+1) ,Y (N+1) 

20 FOR I=i TO N 

48 X(I)=100+INT (S54GXRND (1) ) 

SO YCI)=INT (420%RND (1) ) 

6@ NEXT 

70 X(N+1)=X (1): Y(N+1)=Y (1) 

8Q CLS 

90 FRINT “N="; 

100 FRINT "R=":R 

110 FRINT "F="sF 

120 GOSUB 200 : REM TRACE FOLYGONE 
120 FOR E=i TO F : FOR I=i TON 
14@ XCI)=XCI)+(XCI+1)-X CID) /R 

15Q YCI)=YCI)+CY CI+1)=Y CID) /R : NEXT 
16Q X(N+1)=X (1): Y(N+1)=Y (1) 

176 GOSUE 200 : REM TRACE FOLYGONE 
180 NEXT 

199 END 

200 FLOT X(1),Y(1) ,1: FOR I=2 TO N+i 
210 DRAW XCI) ,Y CI): NEXT: RETURN 
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Les sorties d’écran que nous avons reproduites sur imprimante 
étaient en mode 1. Nous vous conseillons d'examiner aussi ce que l’on 
obtient en mode 2 : vous utilisez à chaque fois exactement le même 
programme en ayant préalablement imposé le mode 2. 
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Un peu de couleur 


Pour le moment, nous avons fait nos dessins en noir et blanc, 
uniquement pour des raisons de reproduction sur imprimante. Que se 
passerait-il si, avant de tracer chaque segment, on tirait sa couleur au 
hasard ? 


Exercice 4.7 

Faites-le. 

Le résultat n’est pas désagréable, mais il y a une limitation : on ne 
peut avoir que 4 couleurs en mode 1. On peut en avoir 16 en mode 0, 
mais les dessins seront plus grossiers. 

Exercice 4.8 


Faites-le. 


4.3 Dessins en trois dimensions 


Les dessins précédents nous ont allèchés, mais nous allons devoir 
nous borner à quelques questions très simplifiées touchant au domaine 
du dessin en trois dimensions. Il y a en effet des algorithmes 
mathématiques très délicats qui interviennent et nous ne pourrons ici 
les aborder tous : nous pourrons juste en effleurer quelques uns. 


Représentation d’une surface par une série de courbes 

Soit une surface d’équation z=f(t,u) (ces coordonnées n’ont rien à 
voir avec les coordonnées X et Y sur l’écran). Pour la représenter, on 
imagine qu’on a effectué K coupes par des plans verticaux parallèles, 
par exemple des plans t=constante ou u=constante. 

Comme on étudie la surface pour u compris entre Ul et U2 et t 


entre T1 et T2, on a en somme un parallélépipède à représenter. On a 
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alors le choix entre quatre représentations possibles : 





On choisit le plus souvent (a) ou (b). Nous choisirons (a) mais 
l'adaptation à (b) est très facile. Alors, pour obtenir un effet de 
perspective cavalière, chaque rectangle qui représente une coupe est 
décalé de AX et AY par rapport à la coupe précédente : 


ÉCRAN 
K# 
AY 
AY 
SR 


COUPE AxX RaAX 99 
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Maintenant, nous décidons que chaque rectangle fera 360 sur 240 
(un peu moins des 2/3 de 640 sur 400) et que AX et AY vaudront 
respectivement 6 et 10. Cela permet un maximum de 25 coupes. Si 
vous voulez faire plus de coupes, ces paramètres sont faciles à changer. 
Vous fournissez la formule de la fonction en réponse à un INPUT (le 
programme applique la technique à base de CHAIN MERGE vue plus 
haut). Les variables sont T et U puisqu'on ne peut prendre X et Y 
(réservées à l'écran). Les coupes sont faites à U constant dans 
l'intervalle Ul1-U2; T varie de T1 à T2. Le U de la coupe n° I est 
U=UI+(U2-U1)*(I-1)/K donc vous devez fournir UI1, U2 dans l’ordre 
lère coupe / dernière coupe (ce n’est pas forcément l’ordre croissant). 
Vous devez fournir T1 et T2 dans l’ordre gauche droite; dans la coupe 
n° I, le X qui correspond à un T est X=360*(T-T1)/ 
(T2-T1)+20+(1-1)*AX,; le Y qui correspond à un Z est Y=Z+#(I-1)}*AY. 


Le programme commence par chercher le maximum et le minimum 
de la fonction donnée pour la mettre à l’échelle. Cette opération est 
très longue. 


1 REM COUFES 1 

2 REM 

18 INFUT “FONCTION":F# 

11 OFENOUT "ZOZ0" 

12 FRINT#9,"20 DEF FNF(CT)="+F# 

1% CLOSEOUT 

14 CHAIN MERGE “ZOZ0",20 

20 DEF FNF(T)=EXF (- (T"2+U0"2) ) 

30 INEUT "K,TI,TS,U1,U2":K,TIi,TS,U1 ,UR 

40 CLS =: PRINT “Z="+F# : PRINT K3T13: T2sU1s;U2 

45 HH=(UZ-U1) /K:H=(T2-T1) /50: MA=-1E+20:MI=1E+70 
50 FOR U=U1 TO UZ STEP HH : FOR T=Ti TO T2 STEP 
H 

6@ Z=FNF(T) : IF Z:MA THEN MA=Z 

70 IF ZEMI THEN MI=Z 

8Q NEXT : NEXT 

90 DEF FNGCT)=BY+MI+240% (FNF CT) -MI) / (MA-M1) 

100 DEF FNHCT)=#6@% (T-T1) / (TZ-T1) +EX 

118 AX=10 : AY=6 

120 FOR I=i TO K : BX=CI-1)#AX+20 +: BY= (1-1) #AY 
1#@ U=U1+(UZ-U1)#CI-1)/K 
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14Q FLOT FNHÇCT1) ,FNGCT1) ,1 
150 FOR T=T1+H TO T2 STEF H 
160 X=FNHCT) : Y=FNG(T) 

170 DRAW X,Y 

180 NEXT 

190 NEXT 





Z=EXP(C-(Tte+Ute)} 
E3 —: GE —& & 


Le défaut apparaît immédiatement sur la figure ci-dessus qui 
présente l'exemple de la surface en cloche d’équation 
Z=EXP(-(T"2+U"2)) étudiée de -2 à +2 sur les deux axes avec 23 
coupes. Des courbes qui devraient être cachées sont affichées ce qui 
diminue la visibilité. 


Il nous faut donc un algorithme de lignes cachées. Nous allons 
utiliser celui dit "des lignes de crête". 


A chaque instant, on a parmi les lignes déjà tracées, la ligne la 
plus haute et la ligne la plus basse. On les appelle ligne de crête 
supérieure et ligne de crête inférieure. Soit maintenant un segment de 
la nouvelle ligne en cours de tracé : il ne sera tracé effectivement que 
s’il est au dessus de la ligne de crête supérieure ou au dessous de la 
ligne de crête inférieure. Les lignes de crête doivent être mémorisées 
et mises à jour à chaque tracé. 
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Comment mémoriser ? C'est facile : on constitue un tableau qui 
garde la valeur de l’ordonnée pour chaque abscisse. Il vient alors une 
difficulté : à cause du décalage AX, on ne connaît pas les valeurs aux 
mêmes abscisses lorsqu’on passe d’une coupe à la suivante. Il faudrait 
obtenir que l’écart entre les points soit égal à AX : dans le programme 
ci-dessus ce n’est pas le cas, l’écart est de 360/50=7.2 alors que 
DX=10. Mais de toutes façons avoir des segments sur pixels non 
consécutifs pose d’autres problèmes. Nous adopterons alors la solution 
la plus brutale qui consiste à prendre des pixels consécutifs et donc à 
ajouter l'instruction H=(T2-T1)/360 en 110. Cela ralentit beaucoup le 
tracé sur écran. On n’ajoute l'instruction qu’en 110, ce qui garde une 
vitesse raisonnable pour la recherche du maximum et du minimum. 


Les lignes de crête sont gardées dans les tableaux CS et CI 
dimensionnés à 639. Il reste le problème de leur initialisation. Il est 
simple : la ligne inférieure est initialisée pour être la plus haute 
possible, soit Y=400 et la ligne supérieure est initialisée pour être la 
plus basse possible, soit Y=0. Ainsi, la première ligne sera toujours 
tracée. 


Voici le programme avec deux exemples de la même surface que 
ci-dessus, différant par le nombre de coupes : 13 et 23. Il faut vous 
armer de patience pour obtenir ces dessins : c’est aussi long que la 
copie sur imprimante. Le plus gênant est que la surface est parcourue 
deux fois pour trouver le maximum et le minimum pour l'échelle, 
Vous pourriez réaliser une version où l’on fournirait la fonction déjà à 
l'échelle. Sinon la mise en langage machine de certaines parties ne 
serait pas du luxe! 


1 REM COUFES AVEC LIGNES CACHEES 
2 REM 
1Q INFUT "FONCTION":F# 
11 OFENOUT "ZOZ0" 
2 FRINT#9,"20 DEF FNF(T)="4+F# 
13 CLOSEOUT 
14 CHAIN MERGE "ZOZ0",20 
20 DEF FNF(T)=EXF (-(T*2+U"2) ) 
22 DIM CS(629) ,CI (639) 
24 FOR 1-0 TO 6:9 
26 CS(I)=@:CI(I)=-400 
28 NEXT 
20 INPUT "EH, Ti,T2,U1,U2":E, Ti, T2, U1 ,UZ 
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CLS 2: PRINT "“Z="+F# 3: PRINT EsTIs Tes U1;UX 
HH= (U2-U1) /EÉ:H=CT2-T1) /50: MA=-1E+20:MI=1E+20 
FOR U=U1i TO U2 STEF HH : FOR T=Ti TO T2 STEF 


Z=FNF(T) 2 IF Z:MA THEN MA=2 

IF Z£MI THEN MI=27 
NEXT : NEXT 
DEF FNG(CT)=EY+MI+240%CFNF CT) -MI)/ (MA-MI) 
DEF FNHIT)=2360%x (T-T1) /(T2-T1)+EX 

AX=1Q : AY=é& : H=(T2-Ti) /3560 

FOR I1=1 TO K : EX=(CI-1)xAX+20 : BY=(I-1)#AY 
U=Ui+(U2-U1)xCI-1)/F 

FLOT FNHCTI1) ,FNG(CT1),1 

FOR T=Ti+H TO T2 STEF H 
X=FNH(T) 2 Y=FNG (T) 

TR=Q:IF YE:CSCX) THEN CS(X)=Y:TR=1 

IF YECICX) THEN CICX)=Y: TR=1 

IF TRzi THEN DRAW X,Y ELSE MOVE X,Y 
NEXT 

NEXT 


Z=EXPC-{Ttetite)) 
13 -5 € -8 & 
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ZzEXPC-(Ttetute)) 
ÉJ "6 Le 6e 





Exercice 4.9 
Il y a une légère erreur dans le programme ci-dessus (et aussi dans 
celui sans lignes cachées). Elle n’affecte pas le rendu apparent de la 


surface mais corrigez-la tout de même. 


Une fois cette erreur corrigée, nous pouvons tracer quelques autres 
exemples. 
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B=-SINHCT)IÆSIN CU) 
17 -3.8 3.8 53.8 -3.8 





RC 
‘ a, u LR — 
FA NET 
sn “HE Te # TT, “ x d 
& ve SOUS «fé 
T. Fe LU +) 
Fu \ \ V4 rer TA À 
: a, er RS vi 
_ UN F 
EL LA Le Fe \, ', ' eo FE 
.. Fa Ma Lu ) ë 
ai ‘ # P 
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On pourrait varier ces exemples à l'infini. Il faut nous limiter. 
Parmi les variantes possibles, le changement de type de perspective 
s'obtient facilement : il suffit de changer les signes de AX et/ou AY. 
On peut effectuer de même le dessin de surfaces de révolution autour 
de l’axe vertical en prenant pour coupes des plans passant par l’axe de 
révolution. 


4.4 Représentation d’un objet en perspective - 


Rotations 


Cette fois, nous définissons un objet (polyèdre) par les coordonnées 
de ses sommets (en DATA) rapportées à un système de coordonnées 
liées au centre de l’objet Otuv. On a un observateur O° à la distance D 
de O sur l’axe Ot et un écran perpendiculaire à OO’t à la distance E 
de O’. Nous nous excusons de ce fatras mathématique, mais il n’y a 
pas moyen de s’en passer. Le plus souvent on aura E=D, c’est-à-dire 
l'écran dans le plan uOv : la variation de E change la taille du dessin 
tandis que celle de D change le point de vue. En particulier, si l’on 
prend D petit, on crée un effet de grand angle qui exagère les 
perspectives. 
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Le point M’ est la représentation perspective du point M de l’objet 
si M’ est sur l’écran (qu’on appelle aussi plan de projection) et aligné 
avec O’ et M. Ayant les coordonnées t, u et v de M, on a facilement 
celles de M° sur l'écran : 


x=u.E/(D-t) y=v.E/(D-t) 
d’où les véritables coordonnées écran pour l'AMSTRAD : 


X=320+U*E/(D-T) 
Y=200+V*E/(D-T) 
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Le programme ci-dessous reçoit en DATA les coordonnées des NS 
sommets d’un polyèdre. La première donnée est NS. On donne ensuite 
les données des faces sous la forme nombre de faces puis, pour chaque 
face, nombre de sommets de cette face puis les numéros des sommets 
de cette face. Le programme gère pour cela trois tableaux de 
coordonnées de sommets (T, U et V) et le tableau des faces : F(I,J) est 
le numéro du sommet de la face I. F(1,0) est le nombre de sommets de 
cette face. Il faut noter que le nombre de sommets d’une face est 
automatiquement augmenté de 1 par le programme et le numéro du 
premier sommet de la face est répété à la fin pour assurer que la face 
soit dessinée fermée. 


Le programme dessine ensuite l’objet, en prenant pour valeurs 
standard D=E=1000. Vous devez donner les coordonnées des sommets 
de sorte que leur dessin tienne dans l’écran. Ensuite, le programme 
attend des commandes de la forme E valeur ou D valeur et il recalcule 
les coordonnées en fonction des nouvelles valeurs au reçu de la touche 
RETURN. Il redessine l’objet au reçu de la touche G. La commande I 
fait copier le dessin sur l'imprimante. Rappelons que Ia routine 
d'impression est devenue un sous-programme grâce à la ligne 60110 
RETURN. 

1 KEM FORME 1 

2 KEM 

10 READ NS:DIM T(NS) ,U (NS) ,V (NS) 

20 FOR I=i TO NS:READ TOI) ,UCI) ,VCI)=:NEXT 
F6 READ NF:DIM FCNF,11):FORK I=i TO NF 

4û READ FE:FOR J=i TO E:READ FCI,J):NEXT 
50 FCI,G)=E:FCI,E+1)=F CI, 1): NEXT 

GÙ D=10GU:E-100G 

70 DEF FNE(T)=Z20G+UxE/ (D-T) 2: DEF FNG CT) =E0@+VxE/ ( 
DT) 

80 GÜOSUE 600 

90 FOR I=1 TO NF 

180 H=F (1,0) 


120 GOSUB 500 ‘ TRACE FOLYGONE 
1:04 NEXT 
140 AF=INEEY#:IF A#="" GOTO 140 


150 IF AF='"'E" THEN INFUT E:GOSUE 600: G0OT0 140 
16Q IF Af="D" THEN INFUT D:GÜSUE 6@0:G0OT0 140 
170 IF 4#$="I" THEN GOSUE 60028: GO0TO 14@ 

180 IF ÀA#="6" GOÜTO 60 

190 GOTO 140 
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308 FOR J=i TO KHiëNI=F(T,J)INE=F CI ,J+1) 
910 T=T(CNI) 2: U=UCNI)s VEV NL) = XI=ENF(T): YI=FNG(T) 
920 T=T CNE) s U=U (N2) : VZV (NE) 2 XE=Z=FNF CT) : YBZ=FNG (T) 
3:20 FLOT X1,V1,1:DRAW X2,Y2 

340 NEXT: RETURN 

608 CLS 

&1Q PRINT "D E'":D:E 

82@ RETURN 

1800 DATA 10 

1018 DATA G,-14@,140 

1920 DATA 0,140,140 

1050 DATA 120,-140,190 

1848 DATA 120,140,1006 

145Q DATA —-120,140,1@0 

1080 DATA —-120,-140,100 

1874 DATA 120,-148,-100 

1080 DATA 120,140,-100 

1094 DATA -120,149,-100 

1108 DATA -120,-140,-1@0 

111Q DATA 7 

1120 DATA 4,1,5,4,% 

1150 DATA 4,1,6,5,2 

1140 DATA 5,1,5,7,10,6 

1150 DATA 5,2,4,8,9,5 

1160 DATA 4,5,7,8,4 

1170 DATA 4,6,10.,9,5 

1180 DATA 4,7,8,9,10 

408009 KEM Copie Ecran H-K DNMF 20900 mode 1! 


p 
| 
| 
| 


— 


D E 1985 1069 
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D E 26960 2008 


Les DATA correspondent à la petite maison dessinée. 


Rotations 
Nous ajoutons maintenant une commande intéressante : la lettre T, 


U ou V suivie d’un angle en degrés (et RETURN) et l’objet tourne de 
l’angle indiqué autour de l’axe correspondant à la lettre! 
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En fait, c’est facile : les trois coordonnées d’un point après rotation 
s'obtiennent à partir des coordonnées avant rotation par multiplication 
par une matrice dite matrice de rotation. Par exemple, si R est l’angle, 
la matrice de rotation autour de l’axe V est : 


cos R -sin R 0 
sin R cos R 0 
0 0 1 


et les autres sont à l’avenant. 


Le programme qui suit admet les commandes de rotation. Là 
encore, pour voir le résultat, il faut envoyer une commande G. On 
voit ci-dessous le résultat d’une rotation de 45° autour de l’axe vertical 
(on tape V45). Notez que si vous n'êtes pas satisfait d’une rotation, 
vous revenez à l’état antérieur en demandant la rotation opposée de 
même axe (Ex. V-45). Notez que l’angle doit être suivi de RETURN. 


1 REM FORME AVEC ROTATIONS 

2 KRENM 

19 READ NS:DIM T(NS) ,UCNS) ,V (NS) 

20 FOR I=i TO NS:READ TOI) ,UCI),VCI):NEXT 
30 READ NF:DIM F(NF,11):FOR Iz1i TO NF 

40 READ E:FOR J=i TO F:READ F(I,J):NEXT 
JO F(I,@)=F:FCI,E+1)=F CI,1) :NEXT 

640 D=1000:E-1000 

7Q DEF FNF(T)=Z20+U%xE/ (D-T):DEF FNG(T)=SQD+V+xE/( 
DT) 

84 GOSUE 600 

98 FOR I=i TO NF 

108 E=F(CI,08) 


129 GÜSUE 5990 ‘ TRACE FOLYGONE 
15Ù NEXT 
148 AF=INÉEVEÆSIF Af="" GOTO 140 


150 IF Af="E" THEN INFUT E:GOSUE 600: GOTO 140 
16ù IF AF="D" THEN INFUT D:GOSUB 600:GOTO 140 
170 IF Af="l" THEN GOSUB 60000: GOTO 140 

180 IF A$="G" GOTO 80 

190 IF A$="T" THEN GOSUB 250:G0T0 2: 

200 IF Af="U" THEN GOSUE 400:GO0T0 2x 

210 IF Af="V" THEN GOSUE 450:GO0T0 2% 

220 GOTO 140 
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GOSUE :QQ : GOTO 140 

REM ROTATION 

INFUT R:R=FI4R/180 

FOR I=i TO NS:T=T(I):U=UCI):V=V(I) 
T CL) =FNA CT) 2 1 CL) =FNB CT) 3 VOL) =ENC CT) 
NEXT : RETURN 

REM MATRICE ROTATION T 

DEF FNACT)=T 

DEF FNECT) =U#C0S (R)-—VXSIN(R) 

DEF FNC CT) =UXSIN(CR) +VxC0S (FR) 

RETURN 

REM MATRICE ROTATION U 

DEF FNACT) =T#C0S (R) +V#SIN (R) 

DEF FNECT)=U 

DEF FNCCT)=-TXSIN CR) +VxC05 (R) 
RETURN 

REM MATRICE ROTATION V 

DEF FNACT) =T*C0S (FO -UXSIN(ER) 

DEF FNBCT)=T#SIN CR) +UxC0S (R) 

DEF FNCCT)=V 

RETURN 

FOR J=i TO ÉiNI=F(I,J):iNG=F (I,J+1) 
TT (NL) + U=U (NL) 3 V=V (NL) 5 X1=FNE CT) 3 Y1=FNG CT) 
TT (N2) 2 U=U (ND) 5 Ve V (ND) 2 XBSFNF CT): YB=FNG CT) 
FLOT X1,Y1,1:DRAW X2,Y2 

NEXT: RETURN 


CLS 

FRINT "D E";D;E 
RETURN 

DATA 10 


DATA G,-140,140 
DATA @,140,140 
DATA 120,-140,100 
DATA 120,140,100 
DATA -120,140,100 
DATA -120,-140,100 
DATA 120,-140,-100 
DATA 170,140,-100 
DATA -120,140,-100 
DATA -120,-140,-100 
DATA 7 

DATA 4,1,3,4,® 
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1150 DATA 4,1,6,5,2 
1140 DATA 5,1,3,7,10,6 
11520 DATA 5,2,4,8,9,5 
1ié@ DATA 4,5,7,8,4 
1178 DATA 4,6,10,9,5 
1180 DATA 4,7,8,9,10 


Surfaces cachées 


On aurait une meilleure compréhension du solide (surtout sous 
certains angles) si seules les faces visibles étaient dessinées. Les 
algorithmes sont plutôt complexes. Nous n'’allons traiter le problème 
que dans le cas d’un solide convexe. C’est très restrictif, mais c’est le 
seul cas accessible dans le cadre d’un tel livre. 


Pour un solide convexe, le problème se pose au niveau de chaque 
face : une face est visible ou non auquel cas elle sera tracée ou non. 
C’est une simplification : si le solide n’est pas convexe une même face 
peut avoir des morceaux visibles et d’autres cachés. 


Soient les coordonnées tuv des sommets 1, 2 et 3 d’une face. Le 
vecteur P de composantes : 


(ul-u2)(v3-v2)-(v1-v2)(u3-u2); (v1-v2)(t3-t2)-(t1-t2)(v3-v2); 
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(ti-t2)(u3-u2)-(t1-t2)(u3-u2); 
est perpendiculaire à la face. Dans quel sens est-il orienté ? 
Considérez la rotation qui amène le vecteur M2MI sur M2M3. 


Imaginez que c'est un tire-bouchon qui accomplit cette rotation : le 
vecteur P est orienté dans le sens où se déplacerait le tire-bouchon. 
—R 


| 
. “rs 


M3 


MA 


Maintenant, pour que ce vecteur P nous serve, il faut qu’il soit 
orienté vers l'extérieur du solide. Vous devez donc bien choisir les 
trois premiers sommets de chaque face. 


Exercice 4.10 


Quels changements faire aux données du programme précédent 
pour assurer cette orientation. 


Exercice 4.11 

Définir de même les données d’un cube. 

Ceci fait, regardons la figure suivante qui compare l'angle fait 
entre ce vecteur perpendiculaire extérieur et la direction Ot, qui est, 


rappelons-le, la direction du regard (au moins si D est assez grand, ce 
que nous supposerons). 
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On voit que si l’angle est aigu (composante sur t du vecteur normal 
positive), la face est visible. Si cette composante est négative, l’angle 
est obtus et la face est cachée. On a donc un critère de visibilité et, 
sous sa forme simplifiée, il ne nécessite que la première composante 
du vecteur. 


Le programme qui suit exploite ce critère. 


1 REM FORME AVEC ROTATIONS 

2 REM 

1@ READ NS:DIM T (NS) ,U (NS) ,V (NS) 

0 FOR Iei TO NS:READ TI) UCI) ,VCID:NEXT 

20 READ NF:DIM FCNF,11):FO0R I=i TO NF 

AG READ E:FOR J=i TO KH:READ F(I,J):NEXT 

59 FCI,0)=K:FCI,H+1)=F (I, 1) : NEXT 

bO D=1000:E-1000 

70 DEF FNF CT) =22Q+UxE/ (D-T): DEF FNG (CT) =200+VxE/ € 
D-T) 

80 GOSUE 600 

99 FOR I=i TO NF 

109 E=F(I,0@) 

170 GOSUB 509 ‘ TRACE FOLYGONE 

120 NEXT 

140 AH=INFEY#: IF Af="" GOTO 140 

150 IF Af="E" THEN INEUT E:GOSUB 600:GO0T0 140 
16@ IF Af="D" THEN INEUT D:GOSUE 600:G0T0 140 
170 IF At="I" THEN GOSUE 60008: G0OTO 140 

180 IF A$f="G" GOTO 60 

190 IF Af="T" THEN GOSUB 250:GOTO Z:0 

200 IF At="U" THEN GOSUE 409:G0T0 230 

210 IF A$="V" THEN GOSUB 450: G0TO 23 

220 GOTO 148 
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ea 
ait 


700 
#10 
220 
ET 
40 
250 
360 
370 
280 
390 
400 
410 
420 
450 
44% 
450 
460 
470 
480 
490 
O0 
Es 
s1ÿ 
520 
0 
540 
SET" 
55 5 
570 
“50 
530 
suû 
610 
620 
1000 
1410 
1020 
1020 
1240 
1050 
1050 
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GOSUB Z:0Q@ : GOTO 14% 

REM ROTATION 

INFUT R:R=FIXxR/180 

FOR I=i TO NS:T=TCT):UEUCT):VEV CT) 
TCI)=ENACT)I I UCI)=FNB(T) 2: VI) =FNC(T) 
NEXT : RETURN 

REM MATRICE KOTATION T 

DEF FNACT)=T 

DEF FNE CT) =UxC0S (CR) -VxSIN CR) 

DEF FNC CT) =UXSIN CR) +VxC0S (KR) 
RETURN 

REM MATRICE ROTATION U 

DEF FNACT)=T#C0S (CR) +VxSTIN CR) 

DEF FNE(T)=U 

DEF FNCCT)=-TxGSIN CR) +V#C0C0S CR) 
RETURN 

REM MATRICE ROTATION V 

DEF FNACT)=T#C0S (KR) -UXSIN CR) 

DEF FNECT)=T#SIN CR) +UxC0S (CR) 

DEF FNC(T)=V 

RETURN 

GOSUER SSO:IF VI=Q THEN 540 

FOR Ji TO EsNIeF (CT, J)iN2EF (TI, 3j+1) 


T=T NR) s U=U ONE) 5 Va ONE) 2 XP NE CT) Ve NG C2 
FLOT X1,Y1,1:DRAW X2,vV 2 NEXI 
RETURN 
REM VISIBLE © 
NI=F CL, L'iNËeF CLS) NEEE CL, 
LU ENT) —U CNE) 2 QUEU CNE) —Ù CNE) 
VaV (NL)-V ONE) s VVEV (NE) —V (NE) 
LJYeUxVV-UVxLs VI ÆUV Es RETURN 
CLS 
FRINT "D E"sD:E 

RETURN 

DATA 1ÿ 

DATA Q,-140,140 

DAla 4,140.140 

Data 120,-140,100 

DATA 10,144, 104 

Dé té — 20,140, 104 

Dati —-1#0,-140,1@@ 








ARTS ET SCIENCES 


1970 DATA 124,-140,-100 
1988 DAlA 120,140,-100 
Dale —12:0,140,-10û 
DATA —-124,-140,-184 
DAlA 7 

DaïA 4,1,2,4,3 
DATA 4,1,6,5,% 
DAlA 5,1,3,7,10,6 
DAlA 5,%,5,9,8,4 
DATA 4,5,4,68,7 
DATA 4,6,18,9,5 
1180 DATA 4,7,8,9,10 





D E 2996 2698 


| 
| 








Nous voilà au bout de notre périple graphique. Nous avons été 
obligés de laisser de côté beaucoup de détails et de simplifier au 
maximum les algorithmes utilisés. Toutefois, nous sommes arrivés à un 
ensemble de possibilités intéressantes. Bien sûr, on pourrait 
perfectionner : faire intervenir la couleur, hachurer les faces des 
solides, dessiner des éléments sur ces faces (ex. portes et fenêtres pour 
la maison). Nous laissons libre cours à votre imagination pour le faire. 
Autrement plus difficile serait de transformer notre programme de 
rotations de solides (déjà spectaculaire, vous le reconnaîtrez) en 
programme d’animation; cela nécessiterait sans doute d’accélérer les 
affichages et rendrait impératif le recours au langage machine. 
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OBJETS GRAPHIQUES DÉPLAÇABLES OÙ LUTINS 


Appelés en anglais "SPRITES", c’est-à-dire esprits ou fantômes, ces 
objets permettent des effets d’animation intéressants. On les appelle à 
peu près universellement "LUTINS" en français, ce qui insiste sur le 
caractère ludique de l’essentiel de leurs applications. 


Un lutin est donc un petit dessin qu’il est très facile de déplacer à 
volonté sur l’écran. Mais ce qui est intéressant surtout, c’est que les 
lutins sont déplaçables rapidement, même en Basic. 


Le problème est que, à la différence de quelques autres micros, le 
Basic de l'AMSTRAD ne possède pas d’instructions spécifiques pour 
gérer des lutins. Nous allons donc devoir les simuler. Cela ne devrait 
pas créer trop de difficultés car l’affichage d’un dessin sur l’écran 
n’est pas sorcier. Il y aura peut-être plus à réfléchir si on veut que le 
déplacement soit automatique... 


5.1 Simulation de lutins 


La base de notre simulation, nous l’avons déjà vue au chapitre 2 : 
l'affichage d’un petit dessin est rapide lorsque celui-ci est constitué 
d’une chaîne de caractères graphiques. 


121 


PEINTRE ET MUSICIEN SUR AMSTRAD 


Nous examinerons successivement les problèmes suivants : 


- définition (forme et couleurs), 

- positionnement et déplacements, 

- mouvements automatiques, 

- déplacements devant ou derrière un décor, 
- détection de collisions. 


Définition de la forme 


Pour la définition de la figure formée par le lutin souhaité, on 
n’est pas limité aux caractères semi-graphiques fournis par 
l'AMSTRAD : on peut, avec le couple SYMBOL / SYMBOL AFTER, 
redéfinir les caractères que l’on veut et leur donner toute forme que 
lon peut souhaiter. Nous renvoyons le Lecteur à "La Découverte de 
l'AMSTRAD" pour une étude détaillée de ces instructions. 


En outre, on a vu au chapitre 2 que le lutin peut être formé de 
plusieurs caractères juxtaposés. La juxtaposition sur une ligne ne pose 
pas de problème. Pour un lutin formé de plusieurs lignes, on sait qu’on 
peut incorporer à la chaîne de caractères les caractères de contrôle qui 
effectuent les mouvements de curseur voulus. Mais il y a un problème 
en liaison avec le positionnement : si l’on se contente d’un 
positionnement en mailles caractères (avec LOCATE), pas de 
problème, on l’a vu pour le mouton du chapitre 2. En revanche, si l’on 
veut un positionnement au pixel près (par TAG) - et c’est nécessaire 
pour avoir des mouvements continus - alors il faut que le dessin soit 
uniligne car, avec TAG, les caractères de contrôle font afficher des 
dessins de flèches au lieu d’être exécutés. 


De même, certains caractères de contrôle permettent de changer de 


couleur : ils permettraient donc d’avoir des lutins multicolores, mais il 
y a la même limitation vis-à-vis du positionnement par TAG. 


Exercice 5.1 


Définir une variable A$ qui permette d'imprimer où on veut un 
dessin en forme de pigeon. 
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Positionnement du lutin 


Pour afficher un lutin dont la définition est contenue dans la 
chaîne A$, il suffit de faire PRINT A$. Mais où sera-t’il affiché ? Il 
y a un choix très simple. 


- Ou bien on se contente d’un positionnement en mailles caractères, 
et il suffit de LOCATE K,L puis PRINT pour avoir le coin 
supérieur gauche en ligne L, colonne K. Mais la résolution est 
alors de 25 lignes sur 20,40 ou 80 colonnes selon le mode. 


- On peut avoir un positionnement pixel par pixel, donc 200 sur 
160, 320 ou 640. Il faut, pour cela, utiliser TAG, puis MOVE 
X,Y et PRINT pour avoir le coin supérieur gauche du dessin en 
X,Y. 


Cette dernière possibilité a malheureusement un inconvénient 
qu’elle hérite du fonctionnement de TAG : comme en mode TAG, les 
caractères de contrôle apparaissent sous forme de dessins, la chaîne de 
caractères de définition du lutin ne doit pas en contenir, ce qui exclut 
les changements de couleur ou les mouvements de curseur (un lutin de 
plusieurs lignes). Si cette contrainte est acceptable, le positionnement 
avec TAG sera préféré car il permet des déplacements beaucoup moins 
saccadés, encore que les saccades soient peu gênantes si les 
déplacements sont rapides. LOCATE permet des mouvements plus 
rapides. 
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5.2 Déplacements 


Déplacer un lutin, c’est tout simplement : 


1- l'afficher au point de départ, 

2- attendre un certain délai, 

3- effacer le lutin de sa position de départ, 
4- le réafficher à la position d’arrivée. 


Toutes ces opérations sont faciles; c’est peut-être l’effacement qui 
est le plus délicat, et encore... Sinon, les points 1 et 4, nous les avons 
déjà vus. Le délai en 2 a pour utilité de permettre de voir le lutin. Il 
peut en partie être mis à profit pour calculer les nouvelles 
coordonnées. La combinaison de la valeur du délai et de la distance de 
déplacement sert à règler la vitesse du mouvement. 


Avec LOCATE, il faut spécifier les nouvelles coordonnées en 
absolu. En mode TAG, on a le choix entre coordonnées absolues ou 
relatives (c’est donc les coordonnées du vecteur déplacement qu’on 
donnerait) selon qu’on utilise MOVE ou MOVER. 


Pour le délai, on peut utiliser bêtement une petite boucle vide : 
FOR T=1 TO N : NEXT où N est le nombre de 1/2000è de seconde 
qu’on veut laisser passer. 


Une autre technique est d’utiliser TIME, fonction sans argument 
qui augmente de 1 tous les 1/300 èmes de seconde : 


100 T-TIME 
110 IF (TIME-T)<NN THEN 110 


où NN est le nombre de trois-centièmes de seconde à attendre. 
Enfin, on peut utiliser AFTER : 


AFTER N,C GOSUB III attend N cinquantièmes de seconde au 
chrono n° C et appelle le sous-programme ligne Ill. 


(Remarquons qu’il y a aussi EVERY qui nous servira pour les 
déplacements automatiques). 
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L'effacement 


L’effacement ne pose pas de problèmes si le lutin est à déplacer 
sur un simple fond d’écran : pour l’effacer, il suffit de le redessiner 
dans l’encre n° 0. Donc, sur 664/6128, on fait un GRAPHICS PEN 0 
et, sur 464, on fait un PLOT X,Y,0. 


Mais il y a une technique encore plus spectaculaire : c’est 
d’afficher le lutin en mode de tracé ou exclusif. À ce moment, il 
suffit de réafficher le lutin sur place pour qu’il soit effacé. Pour 
imposer le mode, c’est facile sur 664/6128 : il suffit de mettre un 
4ème paramètre dans un MOVE ou PLOT. Sur 464, c’est plus délicat : 
il faut faire PRINT CHRS(23)+CHRS(1) mais alors il ne faut pas être 
en mode TAG. Donc, ou bien on impose le mode tout au début, ou 
bien on fait TAGOFF, PRINT... et enfin TAG. 


Exercice 5.2 


Définissez un lutin en forme de pigeon comme à l'exercice 5.1. 
Faites-le se déplacer le long d’une horizontale dans la partie supérieure 
de l'écran. 


Déplacement automatique 


Mais l’'AMSTRAD nous permet de faire mieux : il nous permet de 
faire déplacer un lutin (ou plusieurs) automatiquement, c’est-à-dire 
sans que le programme ait à s’en occuper, ce qui lui permet de faire 
autre chose en même temps. 


On utilise pour cela les instructions de gestion d'événements. On 
peut, pour certains événements, envoyer l'AMSTRAD à un 
sous-programme de traitement de l'événement. Les événements 
concernés peuvent être l’appui sur certaines touches (Ex. ON BREAK 
GOSUB … qui capte les appuis sur la touche ESC) ou l'épuisement de 
certains délais. L’instruction EVERY que nous allons utiliser 
appartient à cette catégorie. 


Elle est de la forme EVERY N,C GOSUB Ill où C (de O à 3} est 


le numéro de chrono utilisé (le chrono est d’autant plus prioritaire que 
son n° est plus grand). Lorsque cette instruction a été exécutée, tous 
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les N cinquantièmes de seconde, on appelle le sous-programme qui 
commence en ligne Ill. Le retour se fait à l’instruction qu’exécutait 
l'AMSTRAD lorsqu'il a été interrompu. 


Dans l'exemple ci-dessous, le pigeon se déplace sur l’écran et il est 
stoppé si on appuie sur une touche : on assure l’indépendance entre la 
partie du programme qui fait déplacer le pigeon (le sous-programme 
de traitement de EVERY) et la boucle d’attente d’une touche. 


Un autre appui de touche fait reprendre le mouvement. On 
remarquera en 80 l'appel de la fonction REMAIN(C) qui fournit le 
temps restant à décompter dans le chrono C, mais surtout arrête le 
chrono et donc, ici, arrête le déplacement. 


1 REM DEFLACEMENT AUTOMATIQUE 

2 REM 

19 SYMBOL 241,6,15,21,7,3,1,0,0 

20 SYMEOL 242,0,0,126,255,254,252,252,56 
320 AF=CHRE (241) +CHRE (2427) 

40 PRINT CHR£E (25) 4+CHR# (1) + TAG :CLG 

SQ X=O:Y=200:FLOT X,Y,1:FRINT A#: 

&Q EVERY 2,1 GOSUE 50Q@ 


78 XF=INEEV# 5 IF X#="" GOTO 72 
80 Z=REMAIN (1) 
9@ XF=INEEVS# 2: IF X#="" GOTO 90 


190 GOTO 40 

900 KEM S/F DE DEFLACEMENT 
Qi REM 

910 MOVE X,Y:FRINT 4€; 

3E9 X=X+7:1F X:=600 THEN X=0 
930 MOVE X,Y:PFRINT 6#;: 

9349 RETURN 


Exercice 5.3 


On fait déplacer un lutin de gauche à droite sur l’écran et quand il 
a atteint le bord droit, on inverse le mouvement, on inverse à nouveau 
lorsqu’il atteint le bord gauche. 


En règlant bien la vitesse, vous pouvez avoir un véritable 
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hypnotiseur. Si vous définissez un second lutin, vous pouvez faire que 
votre mobile se retourne lorsqu’il change de sens de déplacement. 


Exercice 5.4 


Faites-le en prenant toujours notre lutin en forme de pigeon. 


Déplacement dans un décor 


Que se passe-t’il lorsque le lutin se déplace sur un écran où il y a 
déjà des dessins ? On dit que l’on a un décor. Notre astuce d’utiliser le 
mode de tracé "ou exclusif" résout automatiquement une bonne partie 
des problèmes : le deuxième affichage n’efface pas seulement le lutin 
lorsque celui-ci était affiché sur le fond; en fait, il résulte des 
propriétés de l’opérateur ou exclusif que tout objet qui était dessiné à 
l'emplacement du lutin se trouvera rétabli. 


On peut dans beaucoup de cas se contenter de cela, en particulier 
pour des mouvements rapides. Dans d’autres cas, ce n’est pas suffisant. 
Lorsque le lutin se superpose à un objet, il y a combinaison de 
couleurs. Ce qu’on souhaiterait plutôt, c’est de créer des effets de 
passage du lutin soit devant, soit derrière l’objet. 


Disons tout de suite que, pour être fait proprement, ceci exige le 
recours au langage machine et, donc, sort du cadre de ce livre. 


Détection de collisions 


Une autre possibilité offerte par les Basic qui ont des instructions 
de lutins, c’est le déclenchement automatique d'événement lorsque l’on 
décèle que deux lutins se sont heurtés ou qu’un lutin a heurté un objet 
sur l’écran. C’est facile à simuler dès lors que l’on conserve dans des 
variables les positions des objets sur l'écran. Il suffit d’incorporer à 
chaque mouvement (donc dans le sous-programme de déplacement) des 
tests sur les coordonnées. 


Nous sommes maintenant en mesure de traiter très simplement un 


exemple assez spectaculaire, le tir au pigeon. On définit un lutin en 
forme de pigeon qui se déplacera de gauche à droite en haut de l'écran 
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et un lutin en forme de projectile qui se déplacera de bas en haut au 
milieu de l’écran : c’est la balle. Le tir est déclenché par appui sur une 
touche du clavier. Le score est affiché en permanence. 


1 REM TIR AU FIGEON 

2 REM 

19 SYMEOL 241,6,15,21,7,%,1,0,0 

1S SYMEOL 243,0,0,126,255,127,63%,63,% 

2Q SYMEOL 242,0, 0,126,255,254,252,252,56 

25 SYMEOL 244,96,240,248,274,192,126,0,0 

2Q ALF=CHRE (241) +4CHRE (242) 2: ADF=CHRE (24) +CHRE (24 
4) 

40 FRINT CHR£(2E)+CHR# (1) : TAG :CLG 

SD AF=<ADE: De7: Xe: Vet9O: PLOT X,Y, Li: PRINT A€: 

6Q EVERY 3,1 GOSUE 500 

70 EHf=CHRE (271) : XE=200: VE=10: MOVE XE,YEB: PRINT E# 


80 SC=Q: MOVE S0,200:FRINT SC: 

9Q XF=INEEVE 3 IF X#="" GOTO 90 

100 Hz 

110 GOTO 90 

500 KREM S/F DE DEFLACEMENT 

01 REM 

910 MOVE X,Y:FKRINT À; 

20 X=X+D: LF X:=600 THEN D=-D:AF=AlF 
De IF X2ABS(D) THEN D=-D:A#eASF 

330 MOVE X,Y:FRINT A; 

940 IF B=Q THEN 650 

&0@ REM MVT HALLE 

61Q MOVE XBR,YB:FRINT KÆ; 

20 YH=VE+IS: MOVE XB,VEH: FRINT B#SsIF YBSE90D G0TO 


ÉD H=D: MOVE XEB,YB:PRINT Es: YB=10: MOVE XB,YE:FR 
INT Et; 

648 IF X:=300 AND X2320 THEN MOVE 50,200:FRINT 5 
D: SC=GC+1: MOVE 50,200:FRINT SC; 

650 RETURN 
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LES SONS 


Nous allons maintenant placer notre AMSTRAD sous le patronage 
d'Euterpe. L’'AMSTRAD a en effet des possibilités sonores très 
étendues produites par le même circuit intégré sonore que les MSX et 
l'ORIC. Rappelons qu’elles consistent d’une part dans la possibilité de 
faire retentir simultanément trois voix sur une étendue de 8 octaves 
mais aussi dans la possibilité de définir la variation de l'intensité du 
son au cours du temps, ce qui permet de varier les attaques et les 
résonances, donc permet d’imiter certains instruments. On a aussi la 
possibilité de définir la variation de la hauteur du son au cours du 
temps, ce qui permet des effets tels que le vibrato. 


Nous allons tout d’abord examiner quelques propriétés générales 
des sons, afin de mieux comprendre les possibilités offertes par 
lP'AMSTRAD. Puis nous étudierons les instructions de gestion des sons 
que possède l’'AMSTRAD et, enfin, nous regarderons plus 
particulièrement les problèmes de traduction d’une partition. 


6.1 Propriétés des sons 


A part la durée, les deux propriétés les plus fondamentales d’un 
son - et aussi les plus familières à tout un chacun - sont l’intensité (ou 
volume) et la hauteur (la note jouée). Comme on le sait, le son 
correspond à une vibration transmise par l'air ambiant. L’intensité 
correspond à l’amplitude de cette vibration, elle est liée à l'énergie 
mise en jeu. La hauteur correspond à la fréquence (=nombre de 
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périodes par seconde) de cette vibration, si le son est haut ou aigu, la 
fréquence est grande; si le son est bas ou grave, la fréquence est 
petite. 


Mais ces deux propriétés ne suffisent pas à caractériser 
complètement un son, en particulier, elles ne permettent pas du tout 
de dire quel instrument est en train de jouer; or, vous êtes capables de 
reconnaître les instruments (au moins quelques-uns) à l’oreille, c’est 
donc que le son véhicule l'information correspondante. Cette 
information est portée concurremment par deux paramètres, le timbre 
et l'enveloppe. 


Le timbre 


On obtient rarement un son pur (son dont la vibration ne présente 
qu’une seule fréquence) mais presque toujours un son formé d’un 
ensemble de fréquences. Cet assortiment de fréquences détermine la 
"couleur" du son ou, comme on dit, son timbre. La fréquence présente 
la plus basse s’appelle le fondamental : elle détermine la fréquence 
apparente du son entendu puisqu'elle détermine la période du son. Si 
les autres fréquences présentes sont des multiples du fondamental, on 
obtient un son musical; si les autres fréquences n’ont pas de rapport 
simple avec le fondamental, on obtient un bruit. 


Le timbre définit la forme du signal tel qu’on pourrait par exemple 
l’observer sur un oscilloscope. 


A part le choix bruit/musique, le timbre n’est pas commandable 
sur PAMSTRAD. L'AMSTRAD produit un timbre un peu 
passe-partout qui s’accorde avec la plupart des instruments usuels. 


L'enveloppe 

Mais le timbre ne suffit pas à lui seul pour la reconnaissance d’un 
instrument de musique. Par exemple, et cela peut sembler paradoxal, le 
violon, la guitare et le piano n’ont pas des timbres très différents : 
dans tous les cas ce sont des cordes qui vibrent. Il y a donc un 


élément supplémentaire qui intervient, l’enveloppe. 


Lorsqu'on joue une note, son intensité varie au cours du temps : en 
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gros, elle monte au commencement de la note et elle décroît à la fin. 
L’enveloppe est la courbe qui résume l’historique de l'intensité d’une 
note tout au long de sa durée. 


Toute enveloppe comprend quatre phases, certaines pouvant être 


inexistantes parce que trop brèves. Elles sont résumées par la figure 
ci-dessous : 


Intensité 


t 
A est l’attaque ou montée du son : le paramètre qu’on spécifie est la 
durée de cette montée, plus ou moins brusque. La hauteur du 
sommet est, elle, déterminée par le volume. 


D est la descente, exprimée elle aussi sous forme de durée. 


S est le soutien. Le son reste le plus longtemps sur un palier dont le 
paramètre spécifie la hauteur. 


R est la relaxation, qui marque le retour du son à zéro. Ici aussi, 
c’est la durée qu’on spécifie. 


Voici quelques exemples d’enveloppes d’instruments familiers : 


YA RIRUN 


Violon Piano Orgue Clavecin Percussion 





Nous avons maintenant vu les propriétés de base des sons. 
L'AMSTRAD permet d’autres effets en combinant différents sons. 
D'abord, il peut faire retentir trois sons simultanément : il a en effet 
trois voix sonores programmables indépendamment. Mais même sur 
une voix donnée, on peut combiner les effets de sons successifs pour 
produire des vibratos ou des effets de sirène. 
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6.2 Les instructions sonores de l'AMSTRAD 


Nous voyons maintenant les instructions de manipulation des sons 
offertes par le Basic de l'AMSTRAD. Avant cela, nous rappelons que 
l'AMSTRAD produit les sons sur son haut-parleur incorporé. Le 
volume est commandé par la molette située à côté de l’interrupteur de 
mise sous tension. Mais, pour une meilleure qualité sonore, vous 
pouvez le connecter à une chaîne Hi-Fi; vous aurez alors des effets 
stéréo, le canal gauche recevant un mélange des voix 1 et 2, le canal 
de droite recevant un mélange des voix 3 et 2. (N.B. Vous pouvez vous 
contenter de connecter un couple de petites enceintes amplifiées du 
type utilisé couramment avec les "Walkman" : vous aurez déjà une 
amélioration substantielle des sons obtenus). 


Nous citons pour mémoire le fait que PRINT CHRS$(7) ou PRINT 
"°CTRL’ G " produit un bip. 


SOUND 


L’instruction principale de production d’un son sur l'AMSTRAD 
est SOUND. Comme les paramètres sont nombreux et ont des options 
par défaut, elle revêt des formes diverses. Voici la forme minimale : 


SOUND voix,hauteur 


où voix détermine le numéro de l’une des trois voies (ou voix!! ou 
canaux) que l’on veut faire retentir et hauteur est un nombre compris 
entre 1 et 4095 proportionnel à la période de la note à jouer. La 
période est l’inverse de la fréquence donc plus la note est haute, plus 
la valeur est petite. On peut spécifier 0 pour les effets de bruits. 


Les valeurs des notes sont précisées par le tableau suivant. Par 
exemple SOUND 1,142 fait retentir un la. 
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Tableau 6.1 Valeurs des notes 


Note Valeur | Note Valeur | Note Valeur | Note Valeur 


do -1 3822 do 0 1911 do 2 478 
3608 do# 1804 do# 451 
3405 ré 1703 : ré 426 
3214 é# 1607 É ré# 402 
3034 i 1517 i mi 379 
2863 1432 fa 358 
2703 1351 338 
2551 1276 319 
2408 1204 301 
2273 1136 284 
2145 1073 268 
2025 1012 





On a indiqué les numéros des octaves. Le do du milieu du piano et 
le la du diapason sont dans l’octave 3. Bien sûr, les valeurs sont 
approximatives surtout dans l’octave la plus aiguë. 


On trouvera à l’annexe III la représentation des principales notes 
sur partition. Notons aussi que les valeurs de période à indiquer dans 
SOUND correspondent approximativement à la formule : 


hauteur(SOUND) = 62500/fréquence 
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Une forme plus complète est : 
SOUND voix,hauteur,durée,volume 


où durée indique la durée de la note en centièmes de seconde (valeur 
par défaut 20 soit 0,2 s ). Une durée 0 signifie durée déterminée par 
l'enveloppe. Une valeur négative (-n) signifie "répéter l’enveloppe n 
fois". Volume (de O0 - silence - à 15 - le plus fort -) définit le volume 
du son. La valeur par défaut est 12. 


La forme complète est : 
SOUND voix,hauteur,durée,volume,enveloppe,modulation,bruit 


où enveloppe est un numéro d’enveloppe qui définira la variation 
d’amplitude du son au cours de son déroulëèment. Une enveloppe est 
définie par une instruction ENV. Modulation est aussi un numéro 
d’enveloppe, mais faisant varier la hauteur du son pour produire, par 
exemple, du vibrato. Une modulation est définie par une instruction 
ENT. SOUND fait référence à un numéro d’enveloppe ou de 
modulation et on peut se constituer un jeu d’enveloppes ou de 
modulations par autant d’instructions ENV et ENT (au plus 15 de 
chaque ). Bruit est une période qui permet d’ajouter des effets de 
bruit. Si hauteur<>0 et bruit=0, on a un son pur; si hauteur=0 et 
bruit<>0, on a un bruit pur et si les deux sont non nuls on a un 
mélange son-bruit. 


Les files d’attente - RELEASE 


Une propriété essentielle de l’instruction SOUND est qu’elle lance 
le son et redonne immédiatement le contrôle à l'utilisateur. Cela 
permet de lancer une autre note sur une autre voix et, ainsi, de 
produire un accord. 


Bien entendu, si vous envoyez une deuxième instruction SOUND 
sur la même voix, le son attendra que le premier son soit terminé pour 
démarrer. Mais le contrôle vous sera tout de même rendu : les sons 
envoyés à une voix sont mis en file d’attente: il peut y avoir jusqu’à 5 
sons en attente sur une voix et, bien sûr, si la file d’attente est pleine, 
une nouvelle instruction SOUND sur la voix considérée met le 
programme en attente. 
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Deux autres phénomènes d’attente peuvent intervenir. Lorsqu’on 
spécifie un son sur un canal (voix), on peut spécifier un "rendez-vous" 
avec un autre canal, c’est-à-dire qu’il démarre lorsque le prochain son 
du canal de rendez-vous démarrera. C’est ce qui permet des accords 
bien simultanés. 


Enfin, on peut spécifier que le son considéré soit en attente et 
qu’il ne démarre que lorsque l’on exécutera une instruction RELEASE 
voix sur la combinaison de canaux indiquée. 


Le paramètre ’voix’ 


Il nous faut voir maintenant comment on spécifie le canal. Le 
paramètre ‘voix’ spécifie en fait une combinaison de canaux. Le 
paramètre ’voix’ est un octet dont chaque bit a une signification 
précise obéissant au schéma suivant : 


Tableau 6.2 Le paramètre 'voix’ 


Ibit | valeur | fonction | 
> 
1 | jouer sur voix 1 
2 | Jouer sur voix 2 | 
4 | jouer sur voix 3 
8 | rendez-vous avec voix 1 | 
| rendez-vous avec voix 2 | 


IAA 8 © NN = © 
— 
Q 


32 | rendez-vous avec voix 3 
64 | mise en attente 
128 | vidage de la file d’attente de la voix 


| 


Les valeurs de la 2è colonne sont intéressantes. Pour activer un 
certain ensemble de fonctions, il suffit de spécifier la somme des 
valeurs correspondantes. 


Exemples : 
Pour envoyer la même note sur les canaux 1 et 3, comme 1+4=5, il 
suffit de faire SOUND 5, … 


Pour envoyer une note sur la voix 1 avec rendez-vous avec la voix 2, 
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faire SOUND 17, … 
Note sur la voix 2, avec attente : SOUND 66, … 


Libération des attentes sur les trois canaux (ce qui permet de démarrer 
un accord ) : RELEASE 7. 


La fonction 128 vide la(les) file(s) d’attente de la (des) voix 
spécifiée(s) et donc SOUND 135, … arrête tous les sons. On peut le 
faire aussi par PRINT " ’CTRL’ G ". 


Bien sûr, les paramètres peuvent être fournis sous forme 
d'expressions arithmétiques ou de valeurs lues en DATA ou de toute 
autre manière favorable. 


Lorsque l’on spécifie deux notes successives identiques sur une 
voix, l'AMSTRAD les enchaîne de sorte qu’elles n’en forment qu’une 
seule, de durée égale à la somme des durées : 


SOUND 1,142,100 : SOUND 1,142,100 est équivalent à : 


SOUND 1,142,200 . Si on veut deux sons séparés, il faut 
intercaler un court silence, obtenu, par exemple, avec un volume nul : 


SOUND 1,142,100 : SOUND 1,142,10,0 : SOUND 1,142,100 . 


Une autre façon serait d'utiliser une enveloppe se terminant par 
une petite portion silencieuse. 


Exercice 6.1 


Jouer "Au clair de la Lune". 





(dododorémi,ré,domirérédo) 


(nous anticipons un peu sur la section "traduction d’une partition"). 
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Exercice 6.2 


Ecrivez un programme qui vous permette d’accorder votre guitare 
(mi 660, si 495, sol 393, ré 294, la 220, mi 165). 


Exercice 6.3 


Produire l’accord DO MI SOL. 


Les enveloppes : ENV 
On a vu comment on spécifiait l’usage d’une enveloppe dans 

l'instruction SOUND. L’enveloppe doit préalablement avoir été définie 
par une instruction ENV de la forme : 

ENV enveloppe,sections 
où enveloppe est le numéro d’enveloppe tel qu’il est référencé dans 
une instruction SOUND. Il peut y avoir au plus 5 sections de 
variation, qui sont chacune de la forme : 

nombre de pas,valeur du pas,temps 
La valeur du pas indique de combien d'unités de volume on augmente 


ou on diminue. Le temps de chaque pas est en centièmes de secondes. 
Voici une enveloppe de clavecin : 
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Sections 





Elle est produite par ENV  1,2,7,1,1,0,1,14,-1,2. Pour 
l’expérimenter, faites SOUND 1,142,0,0,1. SOUND 1,142,-3,0,1 fait 
retentir la note 3 fois. 


Cette enveloppe a trois sections : une montée rapide, un court 
palier (1 pas à variation nulle) et une descente plus lente. Si vous 
changez le dernier 2 en 1, vous avez le mode étouffé du clavecin. Si 
vous le changez en 4, le son ressemble à celui du piano. 


Le volume spécifié dans SOUND sert d'amplitude de départ. Si 
dans une section, le volume est amené en dessous de 0, il reprend à 15 
et s’il est amené au dessus de 15, il reprend à 0; on obtient donc des 
dents de scie. 


La relation avec la durée spécifiée dans SOUND est complexe. De 
toutes façons, l'enveloppe a une durée bien déterminée, somme des 
durées des sections. La durée de chaque section est:nombre de pas x 
temps de chaque pas. Si la durée spécifiée est 0, alors la durée du son 
sera celle de l'enveloppe. Si la durée spécifiée est négative (-n), 
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l'enveloppe sera répétée n fois, donc la durée du son sera n fois la 
durée de l'enveloppe. Si la durée spécifiée est positive, soit di, d2 
étant la durée de l’enveloppe, il y a deux cas : 


1- dl<d2 La durée du son sera dl, c’est-à-dire que l’enveloppe 
sera interrompue en cours de déroulement; 


2- di>d2 La durée du son sera dl, les d2 premiers centièmes de 
seconde suivant l'enveloppe. Le son se terminera par di-d2 
centièmes de seconde faits avec une amplitude constante égale à 
la valeur atteinte en fin d’enveloppe. 


Exercice 6.4 


Produire l’enveloppe figure ci-dessous (essai de simuler une 
descente exponentielle). 


15 
14 


1 
0 
Section 





ENT 


Les modulations sont à la hauteur ce que les enveloppes sont à 
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l'amplitude. D'ailleurs, AMSTRAD les appelle "enveloppes de ton". 
L’instruction de spécification de modulation ENT a exactement la 
même forme que ENV : 


ENT modulation,sections 


où le premier paramètre est le numéro de modulation qui sera 
référencé dans SOUND. Comme pour ENV, on a au plus 5 sections de 
la forme : nombre de pas, variation, temps. Le temps est en centièmes 
de seconde et la variation (positive ou négative) s’exprime en unités de 
période. 


La modulation a elle aussi une durée, mais sa relation avec la 
durée du son est différente de celle de l’enveloppe. Soit d la durée 
résultant de l’enveloppe et de la durée spécifiée dans SOUND, et d3 la 
durée de la modulation. 


Si d3>d, la durée du son sera d et il y aura une partie de la 
modulation inutilisée. 


Si d3<d, la durée du son sera d avec une partie modulée de durée 
d3 puis d-d3 centièmes de seconde avec hauteur constante égale à la 
valeur atteinte en fin de modulation. 


I y a un cas particulier lorsque d3<d : si, dans ENT, on a spécifié 
le numéro de modulation négatif (-n, attention, il doit quand-même 
être spécifié positif : n, dans SOUND), alors la modulation est 
périodique, c’est-à-dire qu'elle est répétée jusqu’à écoulement de la 
durée d. 


Ce dernier cas est idéal pour le vibrato; essayez : 


ENT -1,4,1,1,8,-1,1,4,1,1 
SOUND 1,142,1000,15,,1 


Remarquez les virgules consécutives dans SOUND qui marquent 
l’absence de spécification d’enveloppe. Naturellement, l’amplitude de 
variation doit être adaptée aux notes jouées : ici, à partir du la, on va 
à mi-chemin du sol dièse et du la dièse. En outre, la vitesse de vibrato 
doit être adaptée au tempo du morceau. 
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Exercice d'entraînement 6.5 

Reconstituez le schéma du vibrato précédent. Modifiez l’instruction 
pour qu’il se fasse deux fois plus lentement. 
Exercice 6.6 


Faire retentir une sirène. 


LES BRUITS 

Le dernier paramètre de l’instruction SOUND permet de produire 
des bruits, c’est-à-dire des mélanges aléatoires de fréquences situées 
autour d’une fréquence centrale dont le dernier paramètre (qui doit 
être compris entre 1 et 31) est proportionnel à la période. 


Le programme ci-dessous imite un coup de feu. 


Loups de feu 





19 ENV 1,2,7,101000 1434 
28 SOUND 1,0,0,8,1,,10 





On a adopté l’enveloppe "clavecin à décroissance exponentielle". 


Nous vous conseillons d’expérimenter : changez l'enveloppe; 
changez la fréquence centrale du bruit. On peut tabler sur les valeurs 
suivantes (elles doivent être comprises entre 1 et 31) : 


1 sifflements 

2, 3, 4 réacteurs, fuites de gaz 
5 -8 tempête, lance-flammes 
9 - 16 vent 

17 - 22 machines, explosion 

23 - 31 avions, grondements. 


Les enveloppes périodiques peuvent donner de bons effets, essayez 
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le programme ci-dessous : 


Mentgur ce pat ict 





Si besoin est, pour arrêter le bruit, faites : 


PRINT "CTRL’ G ". 


SQ 


La fonction SQ (voix) fournit l’état du canal indiqué, les bits ayant 
les rôles suivants : 


bits O à 2 nombre de places libres dans la file d’attente 
bits 3, 4 ou 5 rendez-vous attendu avec la voix 1, 2 ou 3 
bit 6 ce canal est en attente 

bit 7 ce canal est en train de jouer. 


Par exemple, IF SQ(1)<128 THEN SOUND I, … renvoie un son 
sur la voix 1 dès qu’elle ne joue plus. 


La voix se spécifie comme dans les autres instructions, donc 1=voix 
1, 2=voix 2 et 4=voix 3. 


6.3 Imitation d'instruments 


Voici un petit catalogue d’enveloppes permettant d’imiter quelques 
instruments usuels. Ce catalogue résulte de nos essais et de notre 
appréciation personnelle et il va sans dire que vous pouvez varier les 
paramètres si votre appréciation est différente. 

Piano 


ENV 1,1,0,1,2,7,1,1,0,1,14,-1,5 
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Spécifiez un volume de départ nul dans SOUND (ex. pour avoir 3 
la : SOUND 1,142,-3,0,1 ) 
Clavecin 


ENV 2,1,0,1,2,7,1,1,0,1,14,-1,2 


Clavecin étouffé 
ENV 3,1,0,1,2,7,1,1,0,1,14,-1,1,1,0,10 


(remarquer la plage de silence à la fin pour normaliser la durée) 


Guitare 


ENV 4,1,0,1,2,7,1,1,0,1,3,-2,1,8,-1,4 


Banjo (ou violon pizzicato) 


ENV 5,1,0,1,2,7,1,1,0,2,4,-2,1,6,-1,4 


Violon (alto, violoncelle, contrebasse) 


Pour ces instruments, il faut aussi du vibrato, dont l’amplitude doit 
être adaptée à la note jouée et la vitesse doit être adaptée au tempo. 


ENT -1,1,1,4,2,-1,4,1,1,4 
ENV 6,1,0,1,2,7,1,1,-1,1,10,0,5 
Clarinette 


Cet instrument peut être imité sans enveloppe, ce qui revient à une 
enveloppe plate : 


ENV 7,1,0,1,2,7,1,10,0,5 
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Flûte 
ENV 8,1,0,1,4,3,3,10,0,10,4,-3,3 


En ajoutant une modulation en début de note, on obtient un effet 
de flûte indienne : 


ENT 2,2,1,4,4,-1,4,2,1,4 


Trompette 
ENV 9,1,15,7,1,0,15,15,-1,12 


(le résultat n’est pas très ressemblant, mais c’est un problème de 
timbre. Il est encore plus impossible d’imiter le hautbois!) 


Accordéon (bandonéon, harmonica) 


Prendre l'enveloppe du type flûte et faire retentir un accord de 
quinte ou de quarte : 


SOUND 1,142,100,0,8: SOUND 2,106,100,0,8 


Tambour 
ENV 10,1,0,1,1,15,1,1,0,5,1,-15,1,1,0,20 


en prenant une note assez grave : SOUND 1,350,-3,0,10 


Maracas 

On utilise l'enveloppe du clavecin étouffé, mais on mélange avec 
du bruit : 

SOUND 1,300,-3,0,3,,4 


Bien entendu, ces chiffres ne sont donnés que comme point de 
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départ pour vos propres recherches. Nous n’avons pas cité l’orgue car 
cet instrument a une telle diversité que l’ordinateur peut difficilement 
limiter : c’est du côté des jeux de flûte et accordéon qu’il faudrait 
chercher. 


Nous avons, en tous cas, un bon petit répertoire d’instruments,; il 
s’agit maintenant de leur faire jouer des partitions. 


6.4 Codage d’une partition 


Cette section suppose que le Lecteur sait lire une partition en 
notation musicale habituelle. Ce livre ne peut, faute de place, contenir 
un cours de solfège. Toutefois les partitions abordées ici seront assez 
simples. 


En effet, ne possèdant que trois voix, l'AMSTRAD est désarmé 
devant les partitions polyphoniques complexes. Une simple partition de 
piano peut le laisser coi : il y a souvent 5 à 10 notes à jouer en même 
temps. On est alors amené à simplifier la partition, ce qui est un 
exercice qui exige de grandes connaissances en harmonie. Une solution 
de ce problème consiste à faire des essais empiriques jusqu’à obtention 
d’un résultat satisfaisant. 


Nous allons passer en revue quelques exemples, chacun s’adressant 
à un type donné de difficulté. Nous avons pris soin de les choisir dans 


différents genres musicaux : nous espérons que votre genre favori est 
représenté, mais nous avons été obligé de nous limiter faute de place. 


Morceaux monodiques 
"Le coucou" 
Nous commençons par un morceau monodique, dont toutes les 


notes sont égales, le thème du coucou dans "l'Eté" des "Quatre Saisons" 
de Vivaldi. (Voir la partition ci-contre) 
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Nous prenons l’enveloppe 6 définie ci-dessus ("violon"). IL faut 
faire attention aux changements d’octaves et aux altérations : tous les 
si et mi sont bémolisés. Voici une traduction possible où nous utilisons 
la même méthode qu’à l’exercice 6.1 : les données sont mises en 
DATA, et comme les notes sont égales, c’est encore plus simple. 









1 BEM LE COUCOU DE VIVALDI 
É Fi 


ENV 6,140 14%s7alolotols 
ENT -1,1,1,4,%,-1,4,1,1,4 
READ H 

WHILE HEC 








DATE 
DATA 
D'ÉTÉ 






Em 


bé mé pe 
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DATE 





En fait, ce n’est qu’à moitié satisfaisant : les DATA sont très 
fastidieuses. Ce qu’il nous faudrait, c’est un petit langage de traduction 
de partitions, et, bien sûr, le programme qui interprète ce langage. 
Nous allons nous doter d’un tel langage. 


500 REM  INTERFRETE 

SO1 REM 

505 D=23: H=2209: M=180: 0=3: MM=1 : OO=1 

51Q VV+="RENCDTQncd":DIM V(1@) 

520 FOR I=1 TO 7:V(I1)=2" (8-1): NEXT 

SEQ V(B)=24:V(9)=12:V (10) =6 

54Q NN#="DO RE MI FA SOLLA SI DO#RE#FA#LA#SOL#" 
SS0 DIM N(1D)INC(1)=2EDEN(2)=R1SIN (3) =190:N(4)=179 
S6Q N(5)=159:N(6)=142:N(7)=127:N(8)=225:N (9) =201 
570 N(1@)=169:N(11)=134:N(12)=150 

580 READ C# 

590 WHILE C#:>"FIN" 

68@ IF LEN(C+)=1 GOTO 650 

618 I=CINSTR(NNE, CE) -1) /3+1 

62@ H=CINT (NCI) 00) 

6: SOUND 1,H,D,VOL,EV,ET,ER 

640 READ CF 

645 WEND : RETURN 

65 IF CF="+" THEN O=0+1:00-00/2:GOT0 640 

66@ IF C+f="-" THEN O0=0-1:00=?*00:GOTO 640 

670 IF C+F="M" THEN READ M:MM=180/M:GOTO 640 

68@ IF C+t="L" THEN READ D:GOTO 640 

698 I=INSTR(VVE, CF) : D=CINT (MMXV(I)):GOTO 640 
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Le programme ci-dessus réalise un tel interprète. Voici les règles 
du langage correspondant. Les commandes sont à la suite les unes des 
autres, dans des instructions DATA, séparées par des virgules. 


Il y a trois sortes de commandes : 


- Les commandes de hauteur de notes. On donne une note à la fois, 
sous forme de son nom en français, ex. SOL ou RE#. Pour les 
altérations, on n’a que le dièse, donc pour un si bémol, vous devez 
écrire LA#. Est illégal tout nom qui ne correspond pas à une 
touche noire du piano (ex. SI# : écrivez DO). 


- Les commandes de valeur de notes : R, B, N, C, D, T, Q pour 
ronde, blanche, noire, croche, double, triple et quadruple croche. 
n, c et d correspondent aux mêmes figures, mais dans un triolet. 
Une valeur reste la même pour les notes successives tant qu’on ne 
la change pas. 


- Les commandes diverses; M,valeur impose le tempo : la valeur à 
mettre est l'indication métronomique correspondant à la noire. 
L'option par défaut est noire=180 (allegro vivace). L,valeur impose 
la valeur du paramètre durée. + et - montent et descendent d’une 
octave; l’octave par défaut au départ est 3. 


L'interprète a été mis sous forme d’un sous-programme : pour 
l'appeler, vous définissez enveloppe et modulation et vous imposez les 
valeurs respectives de EV (enveloppe), ET (modulation), VOL 
(volume) et BR (bruit); vous faites RESTORE au numéro de ligne où 
commencent vos DATA et GOSUB 500. 


Ci-dessous, nouvelle version du Coucou de VIVALDI qui y fait 
appel. 
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18,8, 


LA, +, 
LA, + 
AH ,+, 
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, 


‘Happy Birthday" 


Notes inégales : 





Aucune difficulté dans cette partition (nous nous bornons à un 
court extrait). Remplacez les DATA de l’exemple précédent par : 







EAN LES 


PNaE 
y cl ee Ses FH ; 









Exercice 6.7 


En musique, DC (Da Capo) veut dire qu'il faut rejouer tout le 
morceau. Faites-le. 
Accords et polyphonie 

I nous faut tout d’abord enrichir notre interprète pour qu’il 
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admette une spécification de voix. La commande de voix sera formée 
d’un numéro (1, 2 ou 3) qui indique la voix à laquelle s’adressent les 
prochaines commandes. D’autre part, comme les accords sont gérés par 
attentes et libération, les commandes de notes des trois voix sont mises 
en files d’attente, et la commande J ("joue!") fait retentir l’accord. En 
fait, vous devrez répartir votre partition en petits segments simultanés, 
déclenchés par des commandes J. Il faudra veiller à ce que chaque 
segment ne contienne pas plus de cinq notes pour chaque voix, 
puisque c’est la limite des files d'attente. 


Une difficulté supplémentaire dans la préparation des données est 
que, avec cet enchaînement de données s’adressant à des voix 
différentes, vous devez faire attention à quelle octave vous êtes : si, 
venant de spécifier une note de l’octave 2 pour la voix 1, vous revenez 
à l’octave 3 pour la voix 2, n'oubliez pas le +; c’est la note qu’on vient 
de spécifier qui compte et non pas la note qui précède dans la même 
Voix. 


Voici notre interprète version 2. On en a profité pour inclure la 
commande ”.” : elle suit une commande de durée de note et, comme en 
notation musicale classique, elle ajoute 50% de durée. 


INTERPRETE & 










Ve) 
(EL) 8 NEXT 









E="DO RE MI 


DIM NOlL&) ENT) RERSES a N£4iæl 7 





MES) else Né) el 4 23 a sé ): SuNCS) el 
és NCIT 


: F ( ri 33 sé “ Fe ee: Es 













. 41 F { M 4 
GOT 656 








HT 
LE AND 191) 2198 THEN 6% 
AE LE y VOL. CD ,EVCJI ET JD ER CJIsIF PF CD 


564 THEN FC) æEF CJ)— &4 


48 HEAD € # 
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RETURN 
"+" THEN De0+1i:00=00/2:G0T0 640 
"et THEN O=0-1:00=2#00:G0T0 648 
"M THEN READ MiMM=180/M:GOTO 640 
THEN READ D:G0T0 648 
THEN DeCINT (1,5%D):GOTO 640 
THEN RELEASE 7:F (165: PF (2)r66: FC 
540 

VAL (CH) IF JJeD THEN IS INSTR (VUE, CE) : DCI 
#V(I)):G0T0 640 
J#JJ:GOTO 640 














Bien voir en 630, 635 comment on évite de surcharger la file 
d'attente en testant la fonction SQ. 


Exercice 6.8 


Ajoutez une commande P qui crée un silence de durée égale à la 
durée qui résulte de la dernière commande de durée : la séquence N,P 
produira un soupir (silence égal à une noire). 


"La Cumparsita”" 


Nous donnons ci-dessous un extrait du célèbre tango de Matos 
Rodriguez. Nous avons remplacé chaque note par un accord de quinte 


ou de quarte pour mieux imiter le bandonéon. (Voir la partition 
ci-contre) 
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Par rapport au programme qui précède, nous changeons bien sûr le 
tempo et l’enveloppe. Les accords devraient se faire sans problèmes 
puisque ce sont des accords simples, de notes de même durée. On 
utilise la commande P (pause) ajoutée à l’exercice 6.8. 


1 REM LA CUMPARSTITA 
EM 





18 ENV 8,1,0,1,4,3,3,10,0,10,4,-3,5 
20 FOR Lei TO E 
B 3 ET CL) e@s VOL CD) æûe BR CI) Qe NEXT 






“E 126 


1G44 DATA M,1@@ 

118 DATA 1,+,D,80L,FA#,S0L,LA 

120 DATA 2,D0,-—,81,+4,D0,RE,d,F 

129 DATA 1,C,LA#,D,LA,C,SOL,N,.,RE 

14û DATA BCRE#, D TRE LC, DO,—,N,.,80L,J 
150 DATA 1,+4,D,RE4,RE,RE#,FA 

164 DATA 2!- S0L4#, SOL ,€ SOL#,LA#,J 

174 DATA 1,+,0,.,80L,D0,RE# CRE 4 Lt 
184 DATA 240: ,D0,D,—,LA,C, 60L,RE#, 0 
DATA 1,+,D,S80L,FA#, SOL, LA 

DATA ne 

DATA 1,C0,LA#,D,LA ses N,.,RE 
DATA 0 RE#,D,RE, De a 
DATA «D RE# , RE, REN TA 

DATA 2 0 re LAND 

DATA 1,+,0,.,S0L,D,RE# CRE sr, LA 
DATA 2+,C,.,00, Do LA. C,SUL., REX, D 
DATA CP, 1, 4RE RER, RE, Co. RE 
DATA 2,-, C'sûL, S0L#, SOL,C,.,5 
dé: D,D0O,D0,RE#,C,RE 
DATÉ ,D,FA,FA,SOL#,C,GOL,J,F 
DATA 1, DO RE, DO,C3 DO 

PAT 2, es FA,SOL,FA,C,. FA 
DATA 1,D,LA#,LA#,+,RE,C, DO 

DATA nes RÈN, SOL CFA 2: 
DATA 1,LA#,+,D0,-,LA#, ir 
DATA FA, SRÉNC y à RER, J 
DATA 1,D,LA,LA, +300, 0, LA 
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DATA 2,D,RE,RE, 
DATA ALSLALÉ 245 
DATA E,CRE, Css D0,D,—4 8144 D0,d 


DATA FIN 






FA,C,LA#,J,F 


OL, D,FAR,N, SOL 








On pourrait traduire des partitions plus compliquées, mais deux 


difficultés apparaissent : 


Les accords dépassent vite trois notes et donc sortent des 
possibilités de l'AMSTRAD. Une solution est de simplifier ces 
accords en supprimant certaines notes, mais il faut les sélectionner 
avec soin. 


Si la partition est trop complexe, on arrive à dépasser les 
possibilités de notre interprète au point de vue vitesse, 
c’est-à-dire qu’on a une exécution de la partition ralentie par 
moments. Ceci est dû à la lenteur de Basic et une solution serait 
d'écrire un interprète analogue en langage machine. Une autre 
solution, très fastidieuse, serait de renoncer aux avantages de 
notre interprète et de revenir à des DATA préparées comme au 
début de ce chapitre. 


Une autre solution possible aussi serait de faire une sorte de 
compilation : on remplacerait l’interprète par un programme en 
deux parties. La première partie lirait les données, en déduirait les 
valeurs des paramètres et les mettrait dans des tableaux. La 
seconde partie jouerait alors la musique des tableaux. Elle pourrait 
être gérée par événements à l’aide ON SQ() GOSUB pour gagner 
encore du temps. 


Dans tous les cas, les principes à appliquer ont maintenant été vus 


et vous avez pu vous rendre compte des possibilités de l'AMSTRAD 
en matière musicale. 
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RÉSUMÉ DES ORDRES GRAPHIQUES 
DE L'AMSTRAD 


(Un + signale une instruction qui n’existe pas ou qui a des restrictions 
sur 464) 


| définition exemples 





BORDER | Définit la couleur du bord de l'écran | 
| BORDER 4 BORDER 4,6 | 36 
CLG | Efface l'écran graphique et fixe la couleur | 
| de fond si elle est spécifiée | 
| CLG CLG 4 | 42 
| | 
CLS | Vide l’écran (la fenêtre indiquée) | 
| CLS | 42 
| 
CURSOR | Rend le curseur visible (1) ou non (0) | 
+ | CURSOR 1 | 
| 
DRAW | Trace une ligne jusqu’au point indiqué de | 
| la couleur spécifiée | 
| DRAW 100,200 DRAW 100,200,5 | 50 
| 
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DRAWR 


FILL 


FRAME 


GRAPHICS 
PAPER 

+ 

GRAPHICS 
PEN 

+ 


INK 


LOCATE 
MASK 
+ 


MODE 


MOVE 


MOVER 
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| Trace une ligne jusqu’au point indiqué de 
| la couleur spécifiée, mais en coordonnées 
| relatives 

| DRAWR 100,200 DRAWR 100,200,5 

| 

| Remplit une aire fermée dans l'écran 
| graphique avec l’encre spécifiée 

| FILL 3 

| Synchronise l’action au balayage écran ce 
| qui peut rendre l’affichage moins saccadé 


| Etablit la couleur de fond de l'écran 
| graphique GRAPHICS PAPER 3 


Etablit la couleur de tracé graphique et la 
transparence (2è param = 1) 
GRAPHICS PEN 1 GRAPHICS PEN 1,1 


Associe une couleur à un n° d’encre Si on 
spécifie deux couleurs, il y a clignotement 
INK 1,0,13 


Positionne le curseur dans la fenêtre 
LOCATE #5,20,10 LOCATE 20,10 
MASK &X00001111,0 


Fixe le mode d’affichage et vide l’écran 
MODE 2 


Déplace (sans tracé) le curseur graphique à 
emplacement indiqué 
MOVE 100,200 


l 


Comme MOVE, mais en coordonnées 
relatives 


| 

| 

| A 

ls 

| 

| Définit le pointillé utilisé pour les tracés 
Il 

| 

| MOVER 10,10 


50 


58 


42 


42 


42 


32 


51 


42 


46 


46 


ORIGIN 


PAPER 


PEN 


PLOT 


PLOTR 


| Fixe l’origine des coordonnées sur l’écran 
| graphique, et éventuellement définit une 
| fenêtre ORIGIN 100,200 

ORIGIN X,Y,G,D,H,B 


Fixe la couleur de fond dans la fenêtre 
PAPER 3 PAPER #5,3 


| 
| Fixe la couleur d’écriture dans la fenêtre 

| PEN 1 PEN #5,1 

| PEN #5,1,1 (664 : mode transparent) 

| 

| PLOT x,y,c,m trace le point (x,y) dans la 
| couleur c et (664) avec le mode m m=0 
| (normal), 1 (XOR), 2 (AND) ou 3 (OR) 

| PLOT 100,200 PLOT 100,300,2 

| (664) PLOT 100,300,2,2 


| Comme PLOT, mais les coordonnées du 
| point sont relatives 
PLOTR 20,20 


SPEED INK | Règle la vitesse de clignotement des 


SYMBOL 


SYMBOL 
AFTER 


TAG 


TAGOFF 
WIDTH 


WINDOW 


| couleurs SPEED INK 50,30 


| Permet de redéfinir un dessin de caractère 

| SYMBOL 200,0,0,0,0,1,1,1,1 
| Doit précéder une série de SYMBOL pour 
| préciser à partir de quel code on fait des 
| redéfinitions SYMBOL AFTER 200 

| Envoie le texte à la position du curseur 
| graphique 

| 

| Annule l'effet de TAG 

| 

| Ajuste la largeur d’imprimante 

| WINDOW #n,g,d,h,b définit la fenêtre n° 
| n dans l’ordre gauche, droite, haut, bas 

| WINDOW #3,1,20,1,5 

| 
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44 


42 


42 


47 


47 


33 


32 


59 


59 


37 
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WINDOW 
SWAP 





| Echange le contenu de deux fenêtres 

| WINDOW SWAP 1,2 

| FONCTIONS 

| 

COPYCHRS | Copie le caractère sous le curseur dans la 


+ | fenêtre spécifiée 
X$=-COPYCHRS(#0) 








Couleur d’encre du point indiqué 







A 
Ordonnée du curseur graphique 


| 

| C=TEST(X, Y) 60 
| Comme TEST mais en coordonnées 

| relatives 60 
| 

| Ligne où se trouve le curseur texte dans la 

| fenêtre indiquée 

| L=VPOS(#0) 

| 

| Abscisse du curseur graphique 46 
| 
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RESUME DES INSTRUCTIONS SONORES 


mot-clé définition exemples 


| Définit une modulation sonore (voir 
| chapitre 6) 

| ENT 1,10,2,2 

| Définit une enveloppe sonore (voir 
j chapitre 6) 

| ENV 1,10,2,2,10,0,2,20,-1,2 


| Appelle le sous-programme indiqué dès 


[qu'il y a une place libre dans la file 
| d’attente du canal sonore spécifié 
ON SQ(2) GOSUB 500 


| Libère une ou plusieurs voix 

| RELEASE 7 (libère les trois voix) 
| 

| 


Fait retentir un son (cf chapitre 6) 
SOUND 1,142,1000 
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FONCTION 


Indique l’état de la voix spécifiée 
L’argument vaut 1, 2 ou 4 (2 voix) 
Le résultat s’interprète bit par bit : 
bits 0-2 nombre de places libres dans la 
file d’attente 
bits 3-5 état du rendez-vous 
bit 6 =1 si la tête de file est bloquée 
bit 7 =1 si la voix est en activité 
IF SQ(1) AND 64 THEN … 
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TABLEAU DES NOTES 


Pour chaque note (de ut-2 à fa#-5), on donne son nom en 
français, sa fréquence et la valeur correspondante pour SOUND. 


NOM 
fréquence 131 139 147 165 175 185 196 207 


F SOUND 478 451 426 379 358 338 319 301 








NOM 


fréquence 220 233 247 262 277 293 311 330 


F SOUND 284 268 253 239 225 213 201 190 
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NOM 
fréquence 


F SOUND 


NOM 
fréquence 


F SOUND 


NOM 


fréquence 


F SOUND 
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FA SOL LA SI 
349 370 392 415 440 466 494 523 554 


179 169 159 150 142 134 127 119 113 








587 622 659 698 740 784 830 880 932 


106 100 95 89 84 








987 1046 1108 1174 1243 1318 1397 1479 1567 


63 60 56 53 50 47 45 42 40 
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SOLUTION DES EXERCICES 


Exercice 1.1 


SAVE "ZONE",B,1024,1024 


Exercice 1.2 

Si la condition est vraie : i01, ill, il2 et 531 (ou 1000 et les 
suivantes si i12 est un GOTO 1000). 

Si elle est fausse : 101, 121, 122 et 131. 


Exercice 1.3 


A$=" : WHILE A$<>"A'" : AS=INKEYS : WEND 


Exercice 1.4 

Non, car s’il n’y a pas de client de nom DUPONT, on ne s'arrêtera 
que sur un message d’erreur (I trop grand par rapport à la dimension 
du tableau). 


On ne peut démarrer la boucle par : 


100 1=0: WHILE NOMS(I)<>"DUPONT" 
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que si on a mis un nom différent de DUPONT comme élément 0 du 
tableau. 
Exercice 1.5 

10 ON ERROR GOTO 1000 

1000 IF ERR=4 THEN RESTORE : RESUME 

1010 ON ERROR GOTO 0 : RESUME 
Exercice 1.6 

On forme un tableau ERF$ tel que ERFS(I) contienne le message 
en français convenant à l'erreur n° I. C’est assez fastidieux à constituer 
et cela consomme de la place mémoire vu le nombre d’erreurs 


possibles. 


Une fois ceci fait, la routine d’erreur s’écrit (on suppose qu’on fait 
un ON ERROR GOTO 10000) : 


10000 PRINT ERFS(ERR) : STOP 


Exercice 1.7 





| format | nombre | impression 
D | 
| #HHE# | -1000 | %-1000 

| * SS#H.## * | 5.948 | * 55.95 * | 
| *S$SS##.## * | 54.95 | * $54.95 * 

| + SS##.## * | 545.95 | * 5545.95 * 

| * S$##.#x# * | 5435.95 | * %$5435.95 * 

| SSH. H## * | -5.95 | * -$5.95 * 

| A=### M | 35.4 | A= 35 M 


= — | 
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Exercice 2.1 


MODE 1 


Exercice 2.2 
10 PRINT CHRS(214) 
20 PRINT " ":CHRS$(143);,CHRS$(143):CHR$(143);CHRS$(215) 
30 PRINT CHRS$(204),CHRS(204);" "CHRS$(205);CHRS$(205) 
Exercice 2.3 
Oui. (Ce n’est pas le cas dans tous les Basic, mais c’est possible en 
Basic AMSTRAD). 
Exercice 2.4 
BORDER 16 : INK 0,1 : INK 1,26 


en supposant que PEN et PAPER ont gardé leurs valeurs par défaut. 
Sinon faire aussi PAPER 0 : PEN 1. 


Pour que le fond devienne effectivement bleu s’il ne l'était pas, 
faire aussi CLS . 
Exercice 2.5 

I! faut la bordure noire, le fond blanc, les caractères noirs, d’où : 


BORDER 0 : INK 0,26 : INK 1,0 : CLS 


Exercice 2.6 

Tout dépend du mode dans lequel on se trouve. En mode 2, il n’y 
a pas moyen puisqu'on ne peut avoir que deux couleurs. En modes 0 
et 1, on fera : 


10 INK 0,9 : INK 1,3 : INK 2,13 : INK 3,1 
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20 PAPER 0 : PEN 1 : CLS 
30 écriture dans la première moitié de l’écran 
….p. ex. 40 LOCATE 1,2 : PRINT " .." 


60 LOCATE 1,13 : PAPER 2 : PEN 3 

70 FOR I=1 TO 13 : PRINT " 20 ou 40 espaces ":NEXT 
80 écriture dans la 2è moitié 

…. p. ex. 80 LOCATE 1,15 : PRINT " …. " 


(70 à pour but d’imposer la 2è couleur de fond dans la 2è moitié de 
l'écran. Ce serait plus facile avec une fenêtre). 


Exercice 2.7 


Un 
“ 





UM MILE Am s GFeINEEVE + WEND 


Exercice 3.1 


L’instruction ORIGIN définit la fenêtre graphique. Les deux 
premiers paramètres sont nuls car on ne déplace pas l’origine des 
coordonnées. La suite PAPER 3 puis CLS définit la couleur de fond 
de l’écran texte comme rouge et le CLS recouvre effectivement l'écran 
de cette couleur. Le CLG vide la fenêtre graphique, ce qui la fait 
revenir au bleu, couleur de l'encre 0. Notez que l’écran reste entouré 
de sa bordure bleue puisque rien n’a été fait pour la changer. 


Exercice 3.2 


320,200 
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Exercice 3.3 


MOVE 300,200 : DRAWR -50,-100 : DRAWR 100,0 : DRAWR -50,100 


Exercice 3.4 


10005 PLOTR 0,0,N 


Exercice 3.5 


11000 REM RECTANGLE TOURNE 

11010 HX=DX*COS(ALPHA) : HY=DX*SIN(ALPHA) 
11020 VX=-DY*SIN(ALPHA) : VY=DY*COS(ALPHA) 
11030 DRAWR HX,HY : DRAWR VX,VY 

11040 DRAWR -HX,-HY : DRAWR -VY,-VY 

11050 RETURN 


Exercice 3.6 

DRAWR Z,-Z : DRAWR Z,Z : DRAWR -Z,Z : DRAWR -Z,-Z 

Z est la longueur de la demi-diagonale. Ces instructions sont à 
exécuter après s'être positionné sur le premier sommet et après avoir, 
s’il y a lieu, fixé la couleur de tracé. 
Exercice 3.7 


(a) 10 PLOT 100,100 : DX=200 : DY=100 : GOSUB 10000 
20 PLOT 120,120 : DX=160 : DY=60 : GOSUB 12000 


(b) 10 PLOT 100,100 : DX=200 : DY=100 : GOSUB 12000 
20 PLOT 120,120,0 : DX=160 : DY=60 : GOSUB 12000 


On utilise les sous-programmes de tracé de rectangles fournis dans 
le texte. 
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Exercice 3.8 


1 KEM EXERCICE 5.8 

2 REM 

10 NE=i:F=1: AR=0:DEG: XC=200: YC=P00: LA=? 
20 CLG:AD=:0:AF=-80:R=140 

20 FLOT XC,YC,NE:AAF=AF 

40 DRAW XC+R#xCOS CAD) , YC+R#SIN CAD) 

50 GOSUE 20000 

60 FLOT XC,YC:AF=AAF 

7Q DRAW XC+R#COS (CAF) , YC+RXSIN(AF) 

80 END 


En 20000 commence, bien sûr, la routine de tracé de cercles vue 
dans le texte. 


Exercice 3.9 


1 REM EXERCICE 3.9 

2 REM 

10 NE=i:F=i: AR=Q: DEG: XC=200: YC=200: IA=E 
20 CLG:AD=D: AF-560 

20 FOR R=<680 TO 150 

40 GOSUE :2000 

30 NEXT 

&Q@ END 


Ceci est très lent à l’exécution alors que le programme suivant qui 
utilise FILL (attention, pas sur 464!) est plus rapide : 


1 REM EXERCICE 3,9 — 2 

2 REM 

10 NE=l:F=i: AR=Q: DEG: XC=200: YC=SOG: TA=E 
20 CLG:AD=0:AF-5460 

20 KR=88 : GOSUE :0000 

40 KR=150 : GOSUB 26000 

90 MOVE XC+1Q@WU,YEC : FILL 1 

4 END 
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Exercice 3.10 


li REM EXERCICE 53.14 

2 KEM 

10 MODE 1 s INF 2,18 : NE 
20 F=ls:DEG: AD=û: AR=Q: AF=54ÿ: TA=E 
20 XC=200:YC=200:K=100:CLG 
48 GOSUR 29000 

JO R=1iSG:F=Q.2Z:GO0SUE 20000 
40 MOVE 60,208 :FILL 3 

7Q@ MOVE 319,200 :FILL 3 

80 MOVE 200,290 :FILL # 

90 MOVE 290,110 :FILL 1 

1MQ END 


Exercice 3.11 


1 REM EXERCICE %.11 

2 KEN 

19 MODE 1 2: INF 2,15 : NEz= 
20 F=i:DEG: AD=<Q: AR=Q: AF=E6Q: TA=E 
T0 XC=200: YC=2008:R=100:CLG 
44 GOSUB 20000 

99 R=179:F=0.2: GOSUR 20000 
&D R=12S:F=0. 3: GOSUE 20000 
7A MOVE 200,200 : FILL 1 
80 MOVE 290,242 : FILL 1 
90 MOVE 200,260 : FILL 1 
100 MOVE 200,118 FILL 1 
110 MOVE 200,155 FILL € 
129 MOVE S0,299 : FILL = 
150 MOVE 340,200 FILL % 
14Q END 


Exercice 3.12 

1 REM EXERCICE 3.17 

2 REM 

10 MODE 1 3 INK 2,24 : NE=z1 

20 Fi: DEG: AD=G: AR=0: AF= 60: IAZE 
10 XC=200: YC=200:R=100:CLG 
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40 F=90.87 : GOSUE 20000 
90 R=170:F-0.7:GOSUE 20000 
60 R=iTS:F=0.7:GOSUE 70000 


7 MOVE 00,200 : FILL = 
8G MOVE 200,242 : FILL ? 
90 MOVE 200,260 : FILL = 
100 MOVE 200,120 : FILL 2? 
119 MOVE 200,155 : FILL % 


120 MOVE 50,200 : FILL € 

120 MOVE 240,200 : FILL 3 

14Q FLOT 159,510,1 : TAG 

1850 FRINT "SATURNE'"3 : TAGOFF 
160 END 


On a effectué quelques ajustements de couleurs et donné le facteur 
d’ellipticité voulu pour que ce soit rond sur l’imprimante. Voici une 
reproduction du résultat : 









SFr eV 
me à 


er. 





Exercice 3.13 


La fin devient : 


9Q NEXT 
95 MOVE 50,200:FILL 1:MOVE 290,255:FILL 1 

108 TAG : FOR 1-0 TO 400 STEF 40 

101 FLOT 1,100,1 : FRINT RIGHT (STREC7S+1/40) ,2) 
193 NEXT 

105 END 

119 DATA 100,100,105,98.107,92,110,8S 


172 


ANNEXE IV 


Exercice 3.14 
On peut remplacer 60050 par : 


60045 XX=X+12-I-I : T-TEST(XX)4TEST(XX+1) 
60050 N=N-(2"T)#(T<>0) 


Exercice 3.15 


1 REM EXERCICE %.15 
2 REM 

200 DATA DUFONT,7 

210 DATA MATHS, PHYSIQUE ,CHIMIE 

220 DATA SC NAT,FRANCAIS,FHILO,HIST-GEDU 
250 DATA 60,72,64,56,26,52,44,60 


Exercice 3.16 


On change l’initialisation de XI en 20 : elle devient X1=60 et on 
ajoute à la fin : 


150 FLOT 0,200: DRAW @,100 
149 FOR Y=Q TO 100 STEF 1@ 

150 YY=100+2xY 2: YESRIGHTE(STRE CY) , 2) 
160 FLOT @,YY:DRAUR 5,0 

172 MOVER D,12:PRINT Y+s 

189 NEXT 


Exercice 3.17 


1 REM EXERCICE 3.17 

3 REM 

18 CLG : X=16 

20 Y=100 : TAG : DX=i6 

30 FOR I=i TO 4 

49 READ F,Q 

5Q DY=F:FLOT X,Y,2:GOSUB 17000 

6@ DY=G:FLOT X+16,Y,%:GOSUE 17000 
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70 FLOT X-20,70,1:FRINT RIGHT#(STR#(1965+5%1I) ,4) 


80 X=x+20 
99 NEXT 
1W@ END 


110 REM DONNEES ARBITRAIRES 

120 DATA 70,4,90,10,120,:0,160,80 
12000 REM RECTANGLE FLEIN 

12010 ORIGIN XFOS,YFOS 

12070 FOR V=Q TO DY STEF 2?*xSGN(DY) 
120%Q MOVE @,V : DRAW DX,V 

12040 NEXT 

12050 ORIGIN @,0 

12060 RETURN 


Exercice 4.1 


1 REM EXERCICE 4,1 

2 KEM 

& FRINT "Four entrer La fonction a tracer" 

4 FRINT "tapez 10 DEF FNF(X)= votre fonction KRet 
urn'" 

5 FRINT "puis 60T0 10 Keturn" 


& END 

19 DEF FNF (X)=SIN(CX) 

29 INPUT "ÉBORNES,T/F"s XL, X2,TE 
20 He CXE-X1) /E00: XX=-2 


AD MVYEFNE CXL) : YMEMY 

SA FOR X=X1 TD XE STEF H 

ë YEFNEF CX) 

70 IF YEMY THEN MY=Y 

8Q IF Y:YM THEN YM=Y 

90 NEXT 

108 DEF FNDCX) =MY+IG4ESGx CFNF CX) MY) / CYM-MY) 
110 CLGSs:FLOT D,FNDCX1),1 

120 FOR X=X1 TO X2 STEF H 

170 XX=XX+É 

14 Y=FND (X) 

150 IF T#="F" THEN FLOT XX.,Y ELGSE DKRAW XX, Y 
180 NEXT 
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Exercice 4.2 


1 REM EXERCICE 4,7% 

RE“ 

5 FRINT "Four entrer Les ‘fonctions a tracer" 
4 FKINT "tapez 10 DEF FNF(T)= votre lere fonctio 
n : DEF FNG(T)= votre Ze fonction Return!" 
3 FRINT "puis G0OT0O 18 Keturn' 

& END 

10 DEF FNFCT)=CO0OSCT):DEF FNG(T)=0.S5XxSIN(T) 
26 INFUT "EORNES,T/PF'sTI,TE TE 

F0 H=(TE-T1) /500 

4Q MX=FNE (T1): XM=MX 

45 MY=FNG CTI) 2 YM=MY 

30 FOR TETI TO TE STEF H 

&@ X=FNF CT) 3 YV=FNG CT) 

85 IF XEMX THEN MXzx 

70 IF YEMY THEN MY=eY 

75 IF X:XM THEN XM=X 

SQ IF Y:YM THEN YM=Y 

90 NEXT 

65 FXe600/ (XM-MX) :FY=E:50/ C(YM-MY) 

19Q FEMIN(CFX,FY) 

105 DEF FND(CT)=MX+18@+Fx CFNF CT) -MX) 

119 DEF FNE(CT)=MY+18+Fx (ENG (CT) -MY) 

115 CLGsPLOT FND(TI) ,FNE CTI) ,1 

120 FOR T=Ti TO TE STEF H 

122 X=FND CT) 

140 Y=FNE CT) 

150 IF TÆF=UF THEN FLOT X,Y ELSE DKRAW X,Y 
1688 NEXT 






Pour garder l’isotropie, il faut appliquer le même facteur d’échelle 
P dans les deux directions : on applique donc le plus petit des deux 
facteurs trouvés PX et PY. 


Exercice 4.3 
Un premier problème est de savoir si les axes X=0 et Y=0 sont 


dans la figure, auquel cas c’est eux qu’on trace. Sinon, on trace des 
axes proches du bord supérieur et du bord gauche de l'écran. 
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Les instructions qui suivent résolvent ce problème : 


17Q KREM EXERCICE 4.27 

171 KEM 

180 AX=MX+10-FxMX: AY=MY+10-FxMY 
190 IF AX20 OR AX:04Q0 THEN AX=S 
200 IF AY£O OR AY:26D THEN AY=S 
210 FLOT AX,0:DRAW AX,:609 

220 FLOT QO,4Y:DRAW 440,8Y 


Pour la graduation, le plus simple est d’inscrire les valeurs des 
maxima et minima de X et Y. 


Exercice 4.4 


L'emploi du sous-programme défini au chapitre 3. Mais il est 
incapable de fournir des pointillés. 


Exercice 4.5 


Il suffit de supprimer l'option de vidage écran dans l'instruction 40 
qui deviendrait 40 PLOT …. Avant la première exécution, on ferait un 
CLG en mode direct. 


Exercice 4.6 


On peut soit changer l’ordre des sommets, soit remplacer R par 
R/(R-1). 


Exercice 4.7 
Le sous-programme de tracé de polygone est remplacé par : 


200 REM EX 4,7 FOLYGONE MULTICOLORE 
BU4 Ci+INT CHMEND (1) ) 

205 FLOT X(1),YC1) ,C: FOR Ie? TO N+i 
207 Ce1+INT CHERND CL) ) 

218 DRAW XCI) ,Y CL) ,C: NEXT: RETURN 
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Exercice 4.8 


23 MODE 






M EX 4,89 FÜLYGONE MULTICOLORE 
EL+INT C1SERND (1) 
PLOT X C1) ,YCLI Css FOR Lex TO N+i 





| 4 


214 DAAW X CI) ,Y CI) Ce MEZXT: RETURN 
Exercice 4.9 


S'il y a K plans de coupe, il y a K-1 intervalles donc en 45 et en 
130, la division doit être par (K-1) et non par K. 


Exercice 4.10 


I faut que lorsqu'on regarde la face depuis l'extérieur, la 
succession M1, M2, M3 semble tourner dans le sens des aiguilles d’une 
montre. Cela nous fait changer les DATA en 1120, 1150 et 1160. 


Voir les changements dans le programme "rotation avec lignes 
cachées" dans le texte. 


Exercice 4.11 
Les données seraient : 


998 REM EX 4-11 
999 REM 

1000 DATA 8 

1010 DATA 60,60,60 
1020 DATA -60,60,60 
1030 DATA -60,-60,60 
1040 DATA 60,-60,60 
1050 DATA 60,60,-60 
1060 DATA -60,60,-60 
1070 DATA -60,-60,-60 
1080 DATA 60,-60,-60 
1090 DATA 6 
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1100 DATA 4,1,4,3,2 

1110 DATA 4,1,2,6,5 

1120 DATA 4,2,3,7,6 

1130 DATA 4,3,4,8,7 

1140 DATA 4,1,5,8,4 

1150 DATA 4,5,6,7,8 

Exercice 5.1 

1 REM EX 5.1 

2 KREM 

10 SYMEOL 241,86,15,721,7,75,1,0,0 
20 SYMEOL 245,0,0,1246,295,294,202,292,%6 


1O AFECHRE CEA 1) +CHRE (242) 
40 FRINT Â# 


Exercice 5.2 


1 REM EX 
2 REM 

10 SYMEOL 241,6,15,5%1,7,2%,10,0 

20 SYMEOL 242,0,0,176,255,254,252,252,56 


T0 AFSCHRE (241) +CHRE (242) 


à 
se 


rail 


AD FRINT CHRE C5) 4+CHRE# C1) 2 TAG 2: CLG 
SA XeQs:Y=i00G: FLOT X,Y,I1:FRINT €; 

69 WHILE X:4600 

78 FOR Izi TQ 2:NEXT 

80 MOVE X,VY:FRINT #3 

90 X=X+2:MOVE XV: FRINT #3; 

189 WEND 

Exercice 5.3 

i KREM EX S.7% 

2 REM 

19 SYMEOL 241,6,15,2:1,7,5%,1,0,0 

20 SYMEOL 242,0,0,126,255,284,252,282,06 


ED AF=CHRE CP41) +CHRÉ (242) 
AD PRINT CHR CE) +CHRE C1) : TAG :CLG 
SA D=7:X=0:Y=t9D:FLOT X,Y,L:PRINT A: 
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60 
78 
80 
90 
120 
500 
321 
J10 
Er 


EEE 
sd a) 


530 
544 


ANNEXE IV 


EVERY 2,1 GOSUE 590 
XF=INEEYE 2 IF X#="" GOTO 70 
Z=REMAIN (1) 

X£=INÉEYS# 2: IF X#="" GOTO 90 


GOTO 69 
REM S/F DE DEFLACEMENT 
REM 


MOVE X ,Y:FRINT À: 
X=X+D:1F X:=6@0 THEN D=-D 
IF X£ARS (D) THEN D=-D 
MOVE X,Y:FRINT À; 

RETURN 


Exercice 5.4 


1 REM EX 5.4 
2 REM 
10 SYMEOL 241,6,15,%1,7,%,1,0,0 


15 
£0Q 


I 
a) 


SYMEOL 245,0,0,126,295,127,63,62, 20 
SYMEOL. 242,0, a, 126,255,254,252,252,5%6 


SYMEOL 244,96,240,248,224,192,176,0,0 


50 ALE=CHRE (241) LCHRS C2A42) 2 ARHECHRE (247) +CHRE (244) 


PRINT CHE (25) +CHRE C1) 2 TAG :CLG 
AFSABE: De7s X=Q: Y=E00:PLOT X,Y, LE FRINT A; 
EVERY 2,1 GOSUE 500 
KE=INÉEY#S : IF X#="" GOTO 7 
Z=REMAIN(1) 
XF=INEEVE : IF X#="" GOTO 90 

GOTO 6@ 

REM S/F DE DEFLACEMENT 

REM 

MOVE X,Y:PRINT A: 

X=X+D:1F X:=600 THEN D=-D:A$=A1# 
IF X2ABS(D) THEN D=-D: Af=ATE 
MOVE X,V:FRINT A: 

RETURN 
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Exercice 6.1 





Le procédé est simple : les données qui seront successivement 
nécessaires sont mises dans un groupe de data. Remarquer aussi le 
couple de O0 pour marquer la fin. 


Exercice 6.2 












THER 





On spécifie une durée très grande pour chaque note : en fait, 
l'utilisateur l’interrompra (en appuyant sur une touche) pour passer à 
la suivante lorsqu'il sera prêt. 
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ANNEXE IV 


Exercice 6.3 





On prépare l’accord en fournissant les données voulues pour chaque 
voix, avec attente. On déclenche l’accord en libérant les trois voix par 
RELEASE. 


Exercice 6.4 


ENV 1,2,7,1,1,0,1,3,-2,1,4,-1,1,4,-1,5 


Exercice 6.5 


R 





Section 4 2 3 E 


ENT -1,4,1,2,8,-1,2,4,1,2 
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Exercice 6.6 





Exercice 6.7 

Il suffit d'appeler deux fois de suite l’interprète, en faisant un 
RESTORE entre les deux. On peut d’ailleurs effectuer des répétitions 
de structure bien plus complexe. 
Exercice 6.8 


On ajoute : 


695 IF C$="P" THEN FOR T=1 TO 10*D : NEXT : GOTO 640 


182 


ANNEXE NM 


BIBLIOGRAPHIE 


@ Sur les instructions de base de Basic : 


L’'AMSTRAD avec plaisir : comment faire de bons programmes 
par R.A. et J.W. PENFOLD EDIMICRO 


Périphériques et fichiers sur AMSTRAD 
par D-J DAVID PSI 


@ Sur la musique : 


Musique sur Amstrad EDIMICRO 


@ Sur l'informatique graphique : 


Mathématiques et graphismes 
par G. GRANPIERRE et R. COTTE PSI 


PEINTRE ET MUSICIEN SUR AMSTRAD 


Graphisme scientifique sur Micro-ordinateur 
par R. DONY Masson 


184 


ANNEXE NM 


INDEX DES PROGRAMMES 


Pavage de couleurs aléatoires 
Saturne 

Diagramme en dents de scie 
Report sur imprimante ("Hardcopy" HR) 
Diagramme en étoile 
Diagramme en bâtons 
Diagramme camembert 

Tracé de courbes Y=F(X) 
Tracé de courbes paramètriques 
Sinusoides 

Gaussiennes 

Courbes polaires 

Courbes polaires rayonnées 
Cycloïdes 

Courbes de Lissajous 
Napperons 

Bolygones 

Polygones spiralés 

Polygones en diaphragme 
Apparence 3-d 

Polygones aléatoires 

Coupes d’une surface 

Coupes avec lignes cachées 
Polyèdres et objets en perspective 
Rotations d’un objet 

Faces cachées 


PEINTRE ET MUSICIEN SUR AMSTRAD 


Hypnotiseur 127 
Tir aux pigeons 127 
Accord d’une guitare 137 
Sirène 141 
Coup de feu 141 
Moteur de rafiot 141 


Extraits musicaux 


Au clair de la Lune 136 
Vivaldi : thème du coucou dans "l'Eté" 145 
Happy Birthday 151 
La Cumparsita (tango) 153 


186 


LA BIBLIOTHÈQUE EDIMICRO 


© Collection «Guides professionnels » 


MACINTOSH 
Gaucherand 


Joutel, Tenin 


APPLE II, Ile, Ilc 
de Merly 


SINCLAIR QL 
Tenin, Van Thong 
KetS Brain 


© Collection «Progiciels » 


IBM PC et compatibles 
Bonnet, Dinh 
Bonnet, Dinh 


MACINTOSH 

Bouilloux, Galassi ............... 
Bouilloux....................... 
HOrNN 52.555 en ae 
Tenin 
Longevialle 


APPLE IL, Ile, Ilc 
Bonnet, Dinh 


Macintosh : outils, progiciels, 
applications 
Bases de données sur Macintosh 


GUIDE DE L’APPLE 
Tome 1 : l’Apple standard 
Tome 2 : les extensions 
Tome 3 : les applications 


Guide pratique du Sinclair QL 
Intelligence artificielle sur QL 


Lotus 1-2-3 à votre portée 
Muitiplan sur IBM PC : exercices de 
gestion 

Framework versions 1 et 2 à la portée 
de tous 

Framework sur IBM PC : exercices de 
gestion 

Archive : bases de données* 


Abacus, Easel et Quill : calcul, 
graphisme et texte* 


Excel sur Macintosh : exercices de 
gestion 

Muitiplan et Chart sur Macintosh 
Jazz sur Macintosh : exercices de 
gestion 

Bases de données sur Macintosh 
Pascal sur Macintosh 


Muitiplan sur Apple : exercices de 
gestion 


© Collection « Mémentos Progiciels » 


Hornn 


Mémento Muitiplan 
Mémento dBASE III 
Mémento R:BASE 5000 
Mémento MultiMate 
Mémento Textor 
Mémento Symphony 2 
Mémento Lotus 1.2.3 


* Ces ouvrages, qui décrivent les modules d’'XCHANGE sur IBM PC, sont également destinés aux utilisateurs du 


Sinclair QL. 


e Collection «Micro-ordinateurs et votre profession : applications 
pratiques » 


Faléfi ss sine sus Micro-ordinateurs et professions juri- 
diques 

Anthon, Hornn.................. Micro-ordinateurs et comptabilité avec 
dBase III 

Tenini het les soliste Micro-ordinateurs et marketing 


© Collection « Ouvrages de base » 


Lamoitier....................... Le Traducteur Micro 
Darnis, Van Thong............... Graphisme et CAO 
Avon, Rolet .................... Courbes de maths en Basic 


© Collection «Ordinateurs familiaux et éducatifs » 
VG 5000 


Amsler, Bardon ................. Guide du VG 5000 Philips 

Amsler, Villemaud............... Jeux sur VG 5000 Philips 

MOS5 

PIteVissss esse este ess Secrets pour MOS, TO7, TO7-70 

Bieber, Perbost, Renucci ......... Tout sur le MOS 

Perbost, Renucci ................ Jeux sur MOS 

Bacconnier, Cettier .............. L’Informatique aide les Maths 

AMIGA 

Lawrence, England .............. L’AMIGA : Fonctionnement et utilisa- 
tion 

AMSTRAD 

Penfold": 12: fasses L’Amstrad avec plaisir 

Waugh sis use dr usant Musique sur Amstrad 

ATARI 

Lawrence, England .............. L’ATARI ST en action 

ATMOS/ORIC 1 

Kosniowsky..................... Nouveaux Jeux sur ATMOS 

Chane-Hune, Darbois ............ Jeux Graphiques sur ATMOS 

Vigier 25522 meme Premiers Pas en Programmation 

SPECTRUM 

Bridge, Carnell .................. Aventures sur Spectrum 

Hurleÿ issus. Jeux Graphiques sur Spectrum 

COMMODORE 64 

Fleurier, Meiller ................. Jeux d’adresse et de hasard 

Fleurier, Meiller ................. Jeux d’action et de réflexion 


PHILIPS C7420 VIDEOPAC + 


Bardon, de Merly ................ Jeux sur Philips C7420 Vidéopac + 
TO7/T07-70 
— ouvrages 
Bieber, Perbost, Renucci ......... Guide complet et pratique du TO7-70 


Perbost, Renucci ................ Jeux prêts à l’emploi sur TO7-70 


LV ne nue rss sé Applications familiales en Basic MSX 
Perbost, Berthet ................. Introduction à MSX 

GENERAL 

Diamé su nine int ent Je construis mon premier robot 
Penfold.…. see same han Introduction aux périphériques 


Collection «Logiciels éducatifs » 


Série de sept logiciels sur cassette pour l’enseignement primaire. Les 
programmes ont été développés par l’Association pour la promotion de 
l'informatique didactique (APID) et par une équipe pluridisciplinaire 
réunissant des spécialistes du matériel didactique, des instituteurs, et des 
analystes-programmeurs. 

Chaque cassette comporte une face TO7-70 et une face MOS. 


ALPHABET 

Chaque lettre de l’alphabet s’affiche agrandie sur une grille : reconstituer 
correctement cette lettre, en pointant au crayon optique les cases à remplir. 
Référence : AL 1. Une cassette. 


BRIC A BRAC 
Jeu de logique où l’élève doit assembler les éléments qui déterminent la 
bonne solution : formes, couleurs, .. Référence BR 1. Une cassette. 


COLOR GRILLE 
Création d'images simples, à l’aide du crayon optique, en utilisant des grilles 
de dessin et de couleur. Référence CO 2. Deux cassettes. 


CACHE-MOTS 

Logiciel de mots croisés évolutifs, sur des grilles préétablies ou créées par 
l'enseignant : retrouver des mots de même type, exercices grammaticaux. 
Référence MT 2. Deux cassettes. 


MOSAIQUE 
Programme de créativité : dessiner des mosaïques, à partir de formes 
géométriques simples, grâce au crayon optique. Réf. MQ 1. Une cassette. 


PUZZLE 
Le menu propose un choix sur le nombre de pièces qui composent le puzzle : 
sept niveaux de difficulté. Référence PU 2. Deux cassettes. 


QUESTION 

Chaque élément grammatical est affecté d’une couleur (vert pour article, 
rouge pour sujet, bleu pour COD...). L'élève doit donner la bonne couleur, 
l'ordinateur affiche en fin d’exercice le nom de l’élève et le nombre de fautes. 
Référence QU 2. Deux cassettes. 


Nombreux autres titres à paraître. Catalogue sur simple demande. 


EDIMICRO 121-127, avenue d’Italie, 75013 Paris 


EXTRAITS DE PRESSE 


EXCEL SUR MACINTOSH 


«Bien stucturé, complète parfaitement le 
manuel d'Excel. Ce qui ressort de ce livre 
est sa facilité de lecture. il se déroule 
comme le scénario d'un film.» 


L'Echo des Apple. 


FRAMEWORK SUR IBM PC : Exercices de 
Gestion 


«Des explications claires et détaillées qui 
vous permettront de maîtriser rapidement 
Framework... » 


Le Journal de la Commande 
Electronique. 


PROGRAMMEZ EN PASCAL SUR MACIN- 
TOSH 


« L'auteur a réussi là une véritable ‘explora- 
tion’ du Macintosh... » 


01 Informatique hebdo. 


« Voilà un livre dense à la fois technique et 
pédagogue... » 


L'Echo des Apple. 

« Le livre est toujours clair et écrit dans un 
style agréable. » 

Education et informatique. 


LES MOTS ESSENTIELS DE LA MICRO- 
INFORMATIQUE 


« Un précieux document..., obligatoire pour 
tout professionnel qui ne veut pas avoir l'air 
d'une ‘pomme’ devant un client curieux... » 


Vente informatique. 


JAZZ SUR MACINTOSH 


«Un livre à la fois clair, pédagogique, 
technique, et truffé d'exemples d'applica- 
tion. » 


Science et Vie Micro. 
«Ce livre est conseillé à tous ceux qui 


voudraient apprendre rapidement à se ser- 
vir de Jazz...» 


L'Echo des Apple. 


Nombreux autres titres à paraître. 


ARCHIVE, Progiciel de bases de Données 
«L'un des meilleurs ouvrages existant sur 
ce type de logiciel. » 

Science et Vie Micro. 


COURBES DE MATHS EN BASIC 


« Constitue une excellente introduction au 
graphisme, pour réaliser de superbes 
courbes mathématiques. » 

Théophile. 


MULTIPLAN ET CHART SUR MACINTOSH 


« Présente l'incomparable avantage de lier 
Microsoft Chart et Microsoft Multiplan. » 


Microsoft Europe. 
«Un outil exemplaire. Les explications 


sont lumineuses et précises. » 
Micro-VO. 


BASES DE DONNÉES SUR MACINTOSH 
«Un bon guide avant l'achat... » 
Sclence et Vie Micro. 


MULTIPLAN SUR IBM PC 
«Ce livre rendra de nombreux services. » 
OPC. 


« Des modèles de qualité professionnelle. » 
L'Ordinateur Personnel. 


FICHIERS EN BASIC PAR L'EXEMPLE 


«Cet ouvrage est recommandé aux per- 
sonnes amenées à entreprendre la pro- 
grammation des fichiers du Basic, pour 
lesquels il constitue une étude pratique, 
sérieuse et en profondeur. » 


Ordi Magazine. 


GUIDE DE L'APPLE 


«Un des meilleurs sur la place. » 
Le Figaro. 


«Le livre que nous attendions : complet, 


clair et pratique. » Apple France. 


Catalogue sur simple demande. 


EDIMICRO 121-127, avenue d'Italie, 75013 Paris 





EXTRAITS DE PRESSE 


INTRODUCTION AUX PÉRIPHÉRIQUES 
D'ORDINATEURS 


« Explique avec clarté en quoi consistent les 
périphériques pour micro-ordinateurs. » 


01 Informatique. 


« Un guide pratique particulièrement concis 
et précis. très facile à lire » 


Théophile. 


JE CONSTRUIS MON PREMIER ROBOT 


«Ce genre de livre est trop rare... Croyez- 
moi, c'est exceptionnel et ‘à saisir’. » 


L'Ordinateur individuel. 


APPLICATIONS FAMILIALES EN BASIC 
MSX 


«Une bonne initiation professionnelle aux 
micros. » 


Electronique Technique et industrie. 
«Un véritable cours de programmation en 
Basic... à retenir lorsque l'on est un ‘débu- 


tant éclairé’ et que l'on souhaite 
comprendre plus à fond. » 


MSX-magazine. 


LE TRADUCTEUR MICRO 


«Un très bon ouvrage... quant au contenu 
et à la présentation. » 


Ordimagazine. 

JEUX SUR VG 5000 PHILIPS 
«Ouvrage bien écrit, structuré et clair. » 
Microfer. 


TOUT SUR LE MOS5 


«Un livre consistant, original et rassurant 
dans sa démarche... » 


Science et Vie Micro. 


INTRODUCTION A MSX 


«Un bon ouvrage de base, agrémenté 
d'exemples utiles. » 


Interface-Microter. 


GUIDE PRATIQUE DU SINCLAIR QL 


«Une somme impressionnante d'informa- 
tions, des programmes nombreux et inté- 
ressants. Un bon outil d'initiation à la 
pratique de notre Sinclair QL.» 


Direco International-Sinclair. 


«Cet ouvrage comblera tous les posses- 
seurs de l'un des meilleurs ordinateurs du 
marché. » 

Science et Vie Micro. 


GUIDE DU TO7 


« Ce guide a le privilège d'être présenté de 
façon claire, dans un style parfaitement 
accessible à tous. » 

Micro 7. 


«Un manuel de référence absolue. » 
Le Figaro. 


JEUX SUR TO7 


« De nombreux conseils et ‘trucs’ pour une 
programmation rapide et efficace. » 


Décision informatique. 
«Un excellent livre d'approche, plein de 


renseignements utiles. » 
Micro 7. 


JEUX SUR COMMODORE 64 


«Cet ouvrage permet aux débutants de 
s'initier au langage Basic en s'amusant... 
Un livre d'un bon niveau. » 

Ti. 


PREMIERS PAS EN PROGRAMMATION 


«Une approche originale dans la littérature 
consacrée aux micros. » 


Décision Informatique. 


Nombreux autres titres à paraître. Catalogue sur simple demande. 
EDIMICRO 121-127, avenue d’Italie, 75013 Paris 





Achevé d'imprimer en octobre 1986 
sur les presses de l'imprimerie Laballery — 58500 Clamecy 
Dépôt légal : octobre 1986 
Numéro d'impression : 609061 


PEINTRE ET MUSICIEN 


A LL s 


AMSTRAD 


CPC 464 
CPC 664 
CPC 6128 


Pour tous les passionnés, qui veulent utiliser pleinement les 
ressources graphiques et sonores de leur AMSTRAD : des 
programmes, des exemples précis, de nombreuses illustrations 
et figures, des explications claires. 








Les modes graphiques 


Les graphiques de gestion : courbes, diagrammes en 
bâtons, « camemberts ». 


Les graphiques artistiques et scientifiques : dessin en 
trois dimensions, perspectives et rotations. 
Les lutins : objets graphiques déplaçables. 


Les sons : bruits, imitation d'instruments, partitions. 


Dans la même série : 


Peintre et musicien sur C128, Référence 64-X, 
Prix indicatif : 148 F. 


ISBN : 2-904457-63-1 





== 
QU UN = Edimicro 


121-127, Avenue d'Italie 75013 Paris 


45 


9 782904 











anvara M GYHLSNV HNS NAIOISNN 13 AHLNI2d D °°r24 


DOGUMEN! NUMENISE AVEC amour. par 


|| 
IN 


r 


L 


WA 










BAM=== 





https://acpc,ne/ 





A l 


